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Per motivi indipendenti dalla nostra volontà, una percentuale 
superiore alla media delle cassette di Commodore Club n. 2 
presenta difficoltà di caricamento. 


□ 


Per evitare disagi ai nostri videolettori, Commodore 
Club n. 2 verrà duplicato a dicembre all’ interno del terzo numero. 
Per tutti, quindi, Commodore Club n. 3 sarà un numero doppio!!! 
Tra gli altri meravigliosi giochi in edicola a dicembre: 
Oroscopo, Pinocchio, Mr. Chomp, Shuttle, Visitors, Panettone... 
t e tanti altri. 
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RESISTENTI, COMPATTE 
SILENZIOSE, EFFICIENTI, 
AFFIDABILI E COMPETITIVE 


Stampanti MITSUI con le caratteristiche 
tipiche dei giapponesi. 

jx La TELCOM propone una gamma di stampanti 
\\ che si distingue per la varietà 
ir delle funzioni e per ia grande affidabilità: 

J - 80e132colonne 

- 1 20 e 180 caratteri al secondo bidirezionale ottimizzata 
j*\ - fogli singoli, moduli continui 

\ - vari tipi di caratteri 

ÌÉ - stampa espansa, compressa, NLQ, grafica 

- interfaccia parallela, seriale, buffer fino a 1 28 KB, 
rrv interfaccie speciali. 
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• Vorrei che pubblicaste un circuito che 
permette il collegamento in parallelo di 
una batteria con elmetto lampone in caso 
di black-out. La rivista Nuova Elettronica 
N. 96 ha pubblicato qualcosa del genere 
però il circuito non funziona perché man- 
ca l'alimentazione di 9 Vac necessaria at 
C64, 

In attesa di una vostra cortese risposta 
ringrazio anticipatamente. (Giuseppe de 
Caterina) 

□ Quale appassionalo di elettronica ho tutte 
le raccolte di Nuova Elettronica e natural- 
mente anche 11 numero 96 è in mio posses- 
so. Ho subito notalo l'articolo in questione 
e ne ho apprezzala l'idea 

L' articolo di Nuova Elettronica N. 96 a pa- 
gana 28 va proprio bene in p articolar modo 
con il VIC 20. mentre per il Commodore 64 
occorre aspettare I errala carnge che c'è sul 
numero 97 della rivista Nuova Elettronica, a 
pagina 1 16 

In queste righe è spiegato anche perché 
la tensione dt 9 Vac in corrente alternata non 
S>a necessaria per la salvaguardia dei pro- 
grammi e dati 


* È possibile pubblicare il listato di un 
programma che velocizzi il caricamento da 
nastro? (per il Commodore 64). Se st gra- 
zie. {'Gualtieri Giorgio) 

D Esiste sul mercato un prodotto, in due 
versioni (l' una per il Commodore 64 e l'altra 
per il VIC 20). che serve proprio per voiociz- 
7 ii re la lettura e la scrittura da nastro. 

Si chiama TURBO-TAPE A tutt oggi é con- 
siderato il migliore vefocizzatore. quindi sen- 
za alcun dubbio ne consiglio l'acquisto. 


•Ho fatto un programma per il 'lotto 1 ' e 
vorrei personalizzarlo per non farmelo co- 
piare. Mi potreste dire come devo fare? 

(Antonio Man tino) 

□ Ho già avuto modo di riha dire ohe non esi- 
sto un modo veramente Infattibile di proteg- 
gere programmi. 

Per certi è sutUcente ta compilazione, per 
altri invece sono necessari artifizi più o me- 
no complicati che vanno da routines partico- 
lari alio chiavi hardware di diversa t altura. 

Cosa tare allora? Consiglio di rivolgersi ad 
un softwarista bravo in LM , ai quale affidare 
ii suo programma. Cosi a distanza altro non- 
si può suggerire. 


* Poiché sul libretto di istruzioni è spie- 
gato male come si registra un programma 
su un nuovo floppy disk, vorrei che mi 
spiegaste bene il funzionamento. Grazie 
e complimenti per la rivista. (Cario I anelli) 

□ Partiamo proprio dairinìzio: 

i — Prendere un dischetto nuovo od inse- 
rirlo in maniera corretta noi drive 

2 digitare OPEN 1 5, 0, 15, "NO: nome 
programma, NN M : CLOSE 15 seguito dal ta- 
sto RETURN, li nome del disco è a piacimen- 
to e le due "NN" stanno per due lettere o 
numeri che corrispondono all'Identificatore, 
il vero e proprio nome per il DOS Dopo cir- 
ca 80 secondi si potrà proseguire (cioè do- 
po che sarà riapparso il cursore sullo scher- 
mo ed il drive si sarà fermato). 

A questo punto abbiamo preparato il di- 
schetto in modo tele che possa ospitare uno 
o più programmi. 

3 — Salvataggio di un programma su di- 
sco preparato: digitare: SAVE "nome pro- 
gramma’ 1 , 8 seguito dai tasto RETURN. Il dri- 
ve si metterà in movimento, e dopo un poco 
terminerà il salvataggio. 

4— Verificare che P operazione sia ansa- 
ta a buon fine con: 

VÈRfFY nome programma”, fi seguito dal 
tasto RETURN. 


* Vorrei sapere quale stampante mi con- 
sigliate tra quelle delta Seìkosha: la GP 560 
A, GP 700 A, e la GP 1 00 VC/fTALY? te vor- 
rei comprarmi un VIC 20 e così insieme 
compresi la stampante da voi consigliata, 
(Emanuele Granturco) 

□ Oaic che la decisione di acquisto è ver- 
so un V1C 20 non posso che far presente che 
esiste l'MPS 801 r oppure la 1525 entramhe 
Commodore. Questo stampanti sono si Com- 
modore. ma la meccanica e parte dell 'elet- 
tronica sono Seikosha. Quale scegliere al ta- 
ra? 

Non posso rispondere altro che: un acces- 
sorio originale è sempre meglio di uno non 
originale 


• Vorrei soddisfare una curiosità: sul ma- 
nuale del G64 che ho il connettore audio- 
video ha solo 5 poti, mentre sul mio C64 

ne ho 3 in più Perché? (Claudio Salviate) 

Non servono proprio a nulla!! Ma allora, 


perché? "Mi chiederà ancora lai. Per avere 
una risposta sicura occorrerebbe andare in 
California e ripetere la domanda a chi ha 
compilato la ”PART LIST” 

Noi possiamo ipotizzare qualche utilizzo 
aggiuntivo, poi non messo in pratica, oppu- 
re è slato più conveniente acquistare quo 
sto connettore piuttosto che H normale 5 po- 
li acquistare questo connettore piuttosto che 
il normale 5 poli a 1BG" 


* Sono un possessore di Commodore 64, 
e vi sarei grato se mi spediste un program- 
ma per sproteggere i listati. (Roberto Mal 
dar I) 

O Ogni giorno $i cerca un metodo nuovo par 
proteggerò i propri programmi e ogni gior- 
no vario persone cercano di sproteggere gli 
altrui lavori. 

A parta »l fallo che non è bene sprol egge- 
re. cosi come ci sono vari metodi ed artifizi 
di proiezione, altrettanti possono essere i si- 
stemi di sprotezione 


* Possiedo un C64 ed un TV Blaupunkt 
che purtroppo dopo circa 15 minuti dal- 
l'accensione perdo II colora. 

Premetto che: if TV funziona regolar- 
mente con I ordinaria antenna per pro- 
grammi televisivi, che il C64 produce gli 
stessi effetti dopo una prolungata accen- 
sione collegandolo al TV, che il TV dopo 
la stessa perde il colore quasi istantanea- 
mente. 

Vorrei un aiuto su come celebrare final- 
mente c felicemente la loro "unione 11 . (Ma- 
ri Giuseppe) 


O I si nto m i duri u nclstl non lasciar o d u b b i . 

Il televisore con buone probabilità è un mo- 
dello un po' vecchiotto o questo fatto si può' 
ripercuotere sul circuito elettronico chiama- 
to GAS (controllo Automatico di Sintonia) che 
non riesco a mantenere il giusto canale sia 
quando arriva un segnale normale che, a 
maggior ragione, quando il segnale in qua- 
si ione è di notevole miensiià 

Il C64 tornisce una notevole intensità di se- 
gnale, quindi una soluzione potrebbe esse- 
re quella di porre in serie, cioè fra C64 ed 
TV. un attenuatore In ogni caso il sistema 
migliore è quello di avvalersi di un buon tec- 
nico TV. 
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LA POSTA LA 1 


Una sola riga 


Dato l'enorme successo che già dal primo 
annuncio ha avuto questa iniziativa si è deci- 
so di dedicare a ir argomento una Rubrica a 
se stante dai titolo omonimo. 

Tutti I lettori che invieranno programmi co- 
stituiti da una sola riga, come ad esempio 

IL MOSCMiua PAZZO 

1 ft*--rup»rL*Ftnoow4KmflHii'iPwi 
Wr-tLEFTÌtAVftì *MIO*<M,RNJU>H 

*i # t)"tL£PTnnyorpi*'ziFOB i-i t 

0 3«iPfKTiBOTO ì 

che verranno pubblicati sulla rivista saranno 
ricompensati con un libro a scelta tra 

Pmgramo in Basto di Clizio Merli 
64 programma per ii Commodore 64 di Glo- 
ri ano Rossi 

Utiifty e murine per il Commodore 64 di Glo- 
riano Rossi 

Come scegliere un Computer di Michele di 

Pisa 

Progettare col Computer Edizioni 

Min isy sterri s 

Il Basic per tutti Edizioni Minisy sterna 
// linguaggio Pescai di Clizie Merli 
// linguaggio ADA Edizioni Mini Systems v 
CP/M facile Edizioni Mlnisystems 
100 software per progettare Edizioni 
Mini Systems 

1994; si mondo dot computer amici di Alber- 
to Cu tirerà 

J&tSim Edizioni Systems 
Il linguaggio Fortran di CILzfo Merli 

I programmi potranno avere uno scopo oppu- 
re no. Ciò non importa! I lavori dovranno per- 
venire solo su carta con una piccola dtescn- 
ziono, citando i nome, l'indirizzo ed il libro 
scelto Tutti j programmi saranno presi m do- 
vuta considerazione, 



PER VIC 20 E COMMODORE 64 


Adatta tutti i normali registratori a cassetta al 
tuo computer. Ti permette di duplicare i pro- 
grammi da un altro normale registratore. Con 
sole 34.000 lire I.V.A. e spedizione compresa 
potrai ricevere direttamente a casa tua questa 
indispensabile interfaccia, inviando il buono dì 
ordinazione accuratamente compilato,, q 

X 

BUONO DI ORDINAZIONE ° 


Inviatemi N. 


Sig. 


interfacce cassette 


Via - 

cop . 


N. 


. Città 


R.C.P. ELETTRONICA srl 

Via Don Posquino Borghi, 13 
42017 NOVELLÀRA (REGGIO E 
Té. 0522/66 1471 


Commodore - 7 



Tante volte è la piccola idea che fa grande un 
progetto. Quante volte due parole ben scelte sono 
valse più di mille in un lungo discorso? 
E' tranquillizzante, per il neofita, sapere che il 
1 54 1 quando da q uel classico rumore: 
"tactactaciac” non si sta rompendo 
irrimediabilmente, ma anzi sta eseguendo razione 
di sincronismo con la traccia zero. 
Ogni idea, ogni curiosità, ogni suggerimento, 
ogni spigolatura software può essere valida e può 
trovare posto in Cornucopia. 
Tutti i "doni 1 ' della dea Fortuna sono numerati 
con il sistema esadecìmate. Sul numero 
precedente abbiamo iniziato da $01 fino a $1 1 e 
quindi oggi riprendiamo logicamente da $12. 
Chiunque abbia una idea scriva ed ogni Snn sarà 
sempre firmato a meno che l'autore non desideri il 
contrario e... i migliori $nn saranno ricompensati 
adeguatamente 
Inviate r vostri $rvn a: 
Speli, Rivista COMMODORE 
rubrica Cornucopia 
, Gloriano Rossi 

Viale Famagosta 75 
20142 Milano 




Da destra a sinistra. Questo piccolo programma ci permette 
di scrivere da destra verso sinistra, carattere per carattere, 
una determinata stringa in maniera tale che sembri scorrere 
nel medesimo verso. 

100 A$ - ' CORNUCOPIA ” 

110 POR I = LEN (A$) TO 1 STEP-1 
120: PRINT TAB (1)'' ' MlDSfAS, 1,1); '[UP)'” 

130: POR X = 1 TO 10; NEXT X 
140 NEXT I 
150 GOTO 110 


Per un errore, nel primo numero di ^Cornucopia 
fnelJ SOS) è stato omesso il listalo che qui riportiamo. 


100 D I M TF<8> 

110 TF H > = 1 33 ; TF < 3 >= 1 34 : TF < 5 > = 1 35 
: TF < 7 ) = 1 36 

12© TF<2>=137 : TF<4>=133 : TF<6)=139 
: TF < 8 ) = 1 40 

200 SET X*=IF X$=' MI THEN 200 
216 X«ASC<X*> 

220 IF X<133 OR X>14<3 THEN 200 
230 FOR 1=1 TO S ; IF TF<I>=X THEN 
XI = I 
240 NEXT 

250 PRINT "E'' STATO PREMUTO IL [RV 
33 TF C3 LEFT] "XI 
300 ON XI GOTO 


Pallina a caso. Ecco un esempio di come si possa taf muo- 
vere un carattere grafico sullo schermo senza ricorrere a spri- 
tes o a routines in linguaggio macchina. 


10 REM **###*******#«*##** 

20 REM * . ft 

36 REM * MOVIMENTO HI UNA * 

40 REM + FALLI NR fi ORSO * 

50 REM * * 

90 rem 

100 PRINT 11 ECLERRK2 DOWN] 11 

110 X»INKRNDa>#8> -1F X*V THEN 1 


120 fl*lNTCRNDa>#15> :B*INT<RNDC1> 
#15> : PRINT 11 C LEFT] 

1 30 OH XGOSUE 140 , 1 60, 1 50 , 1 70 , 16S 
,150,170 , 1 40- : GOTO 1 1 0 
140 FOR K- 1 TO R : PRINT*’ C LEFT] CDO 
mi t " ; ■ GOSUB 1 90 : NEXT RETURN 
150 FOR K=i TO B ■ PRINT 11 C LEFT 3 CDO 
UH J [ 2 LEFT 3 * " ; : GOSUB 1 90 ■ NEXT 
; RETURN 

160 FOR K-l TO R” PRINT" [LEFT 3 CUP 
H2 LEFT]#"; : GOSUB 1 90 : NEXT : R 
ETURN 

170 FOR K=1 TO B ■ FRI NT 11 [LEFT] CUP 
J f " ; GO SUE 130 ‘ NEXT -REI UR N 
ISO GOTO 110 

ISO I<L- 1 0 FOR 1 = 1 TO HL : NEXT - RE TU 
RN 


Una sinusoide variopinta. La locazione di memoria 646 
ospita il valore numerico che va da 1 a 8 per II VlC 20, mentre 
por il C64 il contenuto varia da 1 a 16. 

Questo numero è direttamente associato al colore definito 
attuale, cioè il colore che è stato attivato per ultimo, Questo 
semplice programma serve proprio a dimostrare tutto ciò: 

Per il VlC 210: 

10 PGKE 646, RND (0)*8: PRINT TAB (SIN (X)’6 + 10) 
M |RVSJ...": X-X + .3: GOTO 10 

Por il G64; 

10 POKE 646, FINO (O)* 16: PRINT TAB (SIN 09*16 + TO) 
“JRVSL.": X - X + .3: GOTO 10. 


LO AD automatico da PRG A volte può rendersi necessa- 
rio, vuoi per comodità che per pigrizia, caricare un program- 
ma direttamente dal programma residente in memoria. 

Uno dei sisiemi più semplici e più comodi può considerarsi 
quello proposto qui. La numerazione delle righe, naturalmente, 
potrà essere cambiato in funzione delle esigenze del program- 
ma chiamante. Per chi avesse esclusivamente il registratore, 
sarà sufficiente sostituire nella riga 300, in fondo, il numero 
fì con il numero 1. 


Sposta su TV* Poter spostare il cursore in maniera diretta 
è cosa alquanto semplice con i tasti controllo, ma se questa 
azione è necessaria all 1 interno di un programma può sembrare 
un po 1 più complicala. Ecco quindi una routine atta proprio 
a questo scopo. 

Per adattare la routine al VlC 20 occorre fornire la locazio- 
ne di memoria di video meno 1 alla riga 250, e quindi dalla 
riga 260 alla riga 340 sostituire, dopo le PEEK, il numero 10 
con il numero 17. j] 23 con il 26, quindi il 62 con ii 48, poi il 
14 con il 49, il 12 con il 33. iJ 20 con il 34 ed infine il 13 con 
il 41. 


300 PR I nt » l 4 TftiHH 1 L ORI? * OHF* 1 >4 * 11 \ 
OME PRG " CHR$ i 34 > " , 8 L ^ BONN } 1 

305 FRI NT "RUM 12 DONNI” 

306 FRI NT 11 REM ATTENDERE- PREGO 1 
310 POKE 631/ 13 : POKE 632.-13 : *0KE 

633.* 13 ■ POKE 196, .< 

320 PRINT" tl 2 UPr 


Commodoro 9 



E quindi alla 280, 290 II 40 con il 22. alla 300 e 330 il 41 
con 23 ed alla 310 e 320 il 39 con 21 . Ed infine alla riga 350 
e 360 tl numero 1000 con il numero 506, 

100 REM ********************** 


110 REM * SPOSTA SUL VIDEO * 
120 REM * SECONDO I TASTI ■ * 
130 REM * * 
146 REM * Q 14 E * 
150 REM * fi S D * 
160 REM * Z X- C * 
170 REM * * 
ISO REM * VERSIONE PER C-64 * 
190 REM * * 


20O REM ********************** 

210 

220 PRINT" [OLEARI “ 

2210 A=500 
240 

250 POME 1023+fUSl 
260 IF F'EEKt 197> = 10 THEN POME 102 
3+A, 32 ; R=R-01 ; REM R SINISTRA 
270 IF PEEK < 1 97 > = 1 8 THEN POME 102 
3+A , 32 : R=R+0 1 : REM A DESTRA 
200 IF PEEK <197 >=23 THEN FOKE 102 
3+R, 32 ■ A=R+4G ■ REM GIU" 

290 IF PEEK<197>=09 THEN POKE 102 
3+R> 32 : R=h-40 ; REM SU'’ 

300 IF PEEK < 197 >=62 THEN POKE 102 
3+fl, 32 : A=fl-4 1 : REM SU A SINIS 
TRA 

310 IF PEEKX 197>=I 4 THEN POKE 102 
3+A, 32 : fi=A-39 : REM SU h HESTR 
A 

320 IF PEEK < 1 97 > = 1 2 THEN POKE 102 
3+A ■ 32 •' fi=h+39 ■' REM GIU R SINI 
STRA 

330 IF PEEK <197 >=20 THEN POKE 102 
3+A , 32 : fi=H+4 1 : REM GIU A DEST 
RA 

340 IF PEEKC 197)=13 THEN POKE 102 
3+R , 32 : R =0500 • REM CENTRO 
350 IF R> 1000 THEN R=R-1000 
360 IF ALI THEN fi=R+1000 
370 GOTO 250 

$17 

Hard Copy, Può essere necessario, a volle, eseguire la co- 
pia su cada di ciò che appare sul video. Il sistema migliore, 
in BASIC, è quello suggerito nelle righe del programma che 
segue. 

Potrete inserire queste poche righe in un qualsiasi vostro 
programma quale routine da richiamare al momento oppor- 


tuno, naturalmente dopo la CLOSE 4 della riga 210 si dovrà 
aggiungere unRETURNse detta ruotine sarà richiamata con 
un GGSUB 

10 REM **************** 

20 REM * PRINT SCREEN *- 
30 REM **************** 

100 N=@ 

110 XT$="" 

120 OPEN 4,4 
130 FOR 1=1024 TO 2023 
14y ; X=PEEK 1 I > : IF X=32 OR X=160 T 
HEN 160 

150 -y.= CA AND 127> OR <<K AND 64 > 
*2> OR ( < 64-X AND 32>*2> 

160 :X*“CHR»<X> 

170 :XT$=XT$+X$ 

130 : H=N+ 1 

ISO :IF N>39 THEN FRIHT#4, XT$ : XT$ 
= " " : N=0 
200 NE NT 
210 CLOSE 4 

$18 

Lo sp arac a rat ieri* Questo programma non ha una utilità 
pratica vera e propria. Infatti può essere paragonato ad un 
vero e proprio gadget, (un gadget è in genere un oggetto pia* 
cevole che non serve proprio a nulla). 

Ciò nonostante può essere inserito in un altro programma 
per arricchirlo di un effetto aggiuntivo piacevole, Dopo aver 
introdotto una stringa di caratteri questa viene 'sparala" let- 
teralmente sut video accompagnata con il tipico colpo di una 
pistola. 


100 GOTO 220 

110 " , 

120 " 1 I 

130 "I LO SF ARAC ARATT ERI f 
140 " 1 I 

150 “1 DI I 

160 " I I 

170 " I GLORIANO ROSSI ! 

180 » 1 1 

190 " 1 DA UNA IDEA DI 1 

200 "I RICCARDO SAETTI I 

210 " ' ■' 

220 31=54272 : FL=SI -FH=SI+1 : TL=SI+ 
2 : TH=S I +3 : M=S I +4 ■ H=S I +5 : H=S I + 
6 : L=SI+24 

230 Wf="*" ; FOR M=1 TO 40:W*=W$+"* 
“ : NEXT 

24Ò DET=" " FOR 1=1 TO 20 : DE*=DE$+ 
"CRIGHT3" : NEXT 


IO -Commodore 



250 rem ****************** 

260 REM * INIZIO E INPUT * 

270 REM * STRINGA * 

280 REM ****************** 

230 PR I NT " C CLEAR 3 C 8 DOWN ] I USER ISO 
I UNA STRINGA LUNGA AL MHSSIM 


0" 

300 PRINT "36 CARATTERI" 

310 INPUT fit ; LA=LEN<A$) : IF Lfi>36 
THEN 230 


320 REM ****************** 

350 REM * PRESENTAZIONE * 

340 REM * E RAFFICA * 

350 REM ****************** 

360 PRINT" [OLEARI C 8 DONNI "W$;SPC< 
38 ) " ** "SPC < 38 > " ** " SPC < 38 > ; N$ " 


14 UP3 " 


370 PRINTLEFT*<DE*,20-UV2 > i 
330 FOR X— 1 TO LEN«:A$:j :Qf=MID$CAf 
/X.' 1) ; PRINTQÌJ : IF Q$=" " THEN 
400 

330 GOSUB 470= REM J3R SONORO 
400 NEXT : PR I NT : PR I NTSPC < 254 ) " C 3 D 
CNN ] PREM I E RVSISPAZ 1 0 C RVOF F 2 " 


410 IF PEEK< 137 >=60 THEN 290 
420 GOTO 410 

430 REM ****************** 

440 REM * ROUTINE SONORA * 

450 REM * DELLO SPARO * 

469 REM ****************** 

470 FOR P-15 TO O STEP -1 

480 POKE L, P : POKE M, 1 5 : POKE H, 0 : P 
OKE FH, 40: POKE FL» 200 : POKE W, 

4 90 iir 

500 POKE U,0:POKE H,u 
510 RETURN 
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Un sorti SHELL. Fra i vari tipi di ordinamento che si pos 
sono utilizzare, quello del metodo SHELL è tra i più veloci: 
Provare per credere e... utilizzatelo. 


100 REM ********************* 

110 REM * ORDINAMENTO * 

120 REM * SECONDO IL METODO * 

130 REM * SHELL * 

140 REM ********************* 

ISO DIN R < 500 > 

160 PRINT" CCLERRDSORT TIPO SNELLI 
DOWN] " 


170 INPUT "QUANTI NUMERI (2-500)" 

;nn 

130 IF NN<2 OR NN>500 THEN END 
190 FOR 1=1 TO NN 
200 : A( I >=RNB< 1 )*NN 
210 NEXTI 

220 REM ********************* 

230 TI $=" 000000" : PR I NT "INIZIO " J T 
It 

240 D=NN : SW=0 
250 D=INT C (D+l >X2) 

260 FOR H=1 TO NN-D 

270 : IF A(NX=R<N+D) THEN 300 

230 T = A C N ) = A < N ) =fì < N+D > : fi < N+ D > =T 

290 SW=I 

300 HEXTH 

310 IF SW=1 THEN SW=0:GOTO 260 

320 IF D>1 THEN 250 

330 R$=TIf : PRINT"FINE "A* 

340 FOR 1=1 TO NN : PRINTH< I > : NEXT 
350 PRINT"FINE "A* 

$1 A 

LOAD da disco. Caricare un programma da disco sembra 
la cosa più facile di questa terra. Capita però a volte di digita- 
re male il nome di ciò che vogliamo oppure abbreviamo il no- 
me con l'asterisco senza badare che c'era già un altro pro- 
gramma che Iniziava con te medesime lettere. 

Per evitare una cattiva digitazione del nome o per evitare 
di far troppe manovre, ciò per i pigri, vi consiglio di abituarvi 
ad agire in questa maniera: dopo aver listato la directory del 
disco, c* si posiziona esattamente a fianco del nome del pro- 
gramma che desideriamo. Si. proprio dove Cì sono i numerini 
dell 1 occupazione in blocchi. 

Si digita fa parola LOAO (oppure L e O shi fiato) e quindi 
con il controllo cursore ci si porla a destra del nome, proprio 
dopo i doppi apici e si digita “,8 ,h seguito da tarili spazi quan- 
ti sono necessari per togliere la parola PRG. 

La cancellazione della parola PRG non è necessaria se noi 
dovessimo caricaro un programma con l'opzione *\8, 1" op- 
pure se abbiamo l'accortezza di aggiungere un due punti do- 
po l’otto ( J \8:” o “.8,1:”), 

$1 B 

PEEK - RIMO* Per ottenere un numero casuale che può an- 
dare da 0 a 255 si esegue normalmente questo tipo di istru- 
zione: 

N = tNT (RND( — 1)*256) 

Provate allora ad eseguire: 

N = PEEK(162) 

e guarda caso Sì ottiene ancora un numero casuale da 0 a 
255. 

Se si volessero solo numeri compresi tra 0 e 15 si esegue: 
N = PEEK (162) AND 15 

Mentre se sì volessero solo numeri pari, sempre compresi 
fra 0 e 256, si fa: 

N *= PEEK (162) AND 254, 
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CONTABILITA 

FAMILIARE 


di Francesco Catti 



L'uso del computer nella gestione e 
controllo della casa non dovrebbe esse- 
re una cosa tanto strana: dopotutto la 
stragrande maggioranza dei computer 
presemi neUe nostre case vengono de 
finiti "Homo Computer 1 ' 

Elaboratori perciò che non solo sono 
rivolti a tulli {se cosi interpretiamo la pa- 
rola Home' riferita al prezzo e alla sua 
semplicità d'uso), ma rivolti anche a ri- 
sòlvere problematiche esclusive della 
casa. 

Da qui la concezione di un computer 
che dovrebbe aiutare i bambini nelLap 
prendi mento dei problemi di matemati- 
ca e di grammatica, aiutare la padrona 
di casa a tenere in ordine i suoi corni, 
controllare apparecchiature elettriche 
funzionanti in orario economico e cosi 
via. 


Se analizziamo però t programmi per 
i vari VIC 20 o C64 ci accorgiamo che 
gran parte di questi sono rappresentati 
da "giochini”. Vengono poi le "Utilities” 
(come vengono chiamali i programmi 
che migliorano o semplificano talune 
proprietà del Computer), poi, quasi fa- 
nalini di coda, troviamo i cosiddetti ge- 
stionali. 

In questo ultimo gruppo sono riuniti 
tutti i programmi che servono a velociz- 
zare, semplificare operazioni di riordi- 
no archivi, di contabilità. 

Programmi di questo tipo ad esempio 
per il C64 h sono un po* pochi, fatta ec- 
cezione per le rubriche telefoniche (nel- 
la mia raccolta dì programmi ne ho ben 
5 r tutti simili), dove secondo me la ve- 
locità del computer (compreso reperi- 
mento programma, caricamento, inse- 


rimento dati) viene ridicolizzata al con- 
fronto della velocità della mano e del- 
l'occhio che consultano una rubrica 
convenzionale. Perciò quando si trattò 
di realizzare qualcosa che fosse utiie 
avere nella memoria del nostro compu- 
ter di casa, tonni conto di questo fatto- 
re (velocità) Scelsi cosi di dedicarmi al 
problema della contabilità giornaliera. 


Il programma 


All'esperto dì contabilità parrà motto 
difficile che un programma di questo ti- 
po possa trovare posto, per via della sua 
mote, $u una rivista. E infatti non sba- 
glia: quello che viene trattato ora è un 
condensato di un più grosso program- 
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ma da me già realizzato per la rivista su 
cassetta Commodore Club ’ della me- 
desima casa Editrice e che verrà diffu- 
so prossimamente. 

Questa versione risulta semplificata 
riguardo alla ricerca particolareggiata 
delie voci (per campi, come: tipo di pa- 
gamento, codice del conto, ammonta- 
re totale di un conto, ammontare relati- 
vo a tutti i conti eoe. eoe.), la stampa ge- 
nerale e la sua gestione in maschere. 

Nonostante ciò rimane pur sempre un 
valido strumento per documentare le 
nostre spese. 

Come funziona 

Il programma è stato studiato per fun- 
zionare su tutti i tipi di computer COM- 
MODORE. L'unica raccomandazione ri- 
guarda i possessori dei VIC 20 che do 
v ranno DI Menzionare le matrici della ri- 
ga 186 secondo la loro disponibilità di 
memoria. 

Il supporto di memoria dì massa puc 
essere indifferentemente il disco oppu- 
re il registratore. In quest'ultimo caso $ 
devono modificare le Hnee 462 e 496 in 

462 OPEN 5/1,1. + (MS) 

496 OPEN 5. 1,0, + (MS) 

In questa maniera non sarà necessa 
no cambiare per le operazioni di CLO 
SE, PAINT# INPUT#, HFN cioè il nt* 
mero di riferimento interno. Lanciato i 
programma apparirà il menu principe 
le. Seguendo le indicazioni poste in ne- 
gativo (in REVERSE) si otterrà l'esecu 
zione deile varie operazioni 

Cosi ad esempio premendo la lettera 
J T' entreremo in ' Modo Inserimento 1 ' 
permettendoci l’aggiornamento delle 
voci. Noterete che neinniroduzione del- 
le voci esiste una riga di INPUT con la 
dicitura Codice Categorìa: per rispar- 
miare memoria occorrerà inserire TE 
per quanto riguarda le spese Telefoni- 
che e così via. 

Fare attenzione ad usate f opzione C 
per la ' Cancellazione 1 ', infatti l'indice 
delle voci slitterà indietro di una unità! 

Le altre opzioni non creano ulteriori 
problemi, tranne forse solo Richiamo e 
Memorizzazione, Un consiglio: usate 
NOV84 per memorizzare il vostro FILE 
dati riguardanti il mese dì novembre 
1984. 

Le Ire POKE di riga 182 sono riferite 
al colore; le prime due riguardano lo 
schermo, la terza il colore del testo. 

I possessori di computer delle serie 
4000/8000 devono ignorarle; ì posses- 
sori del VIC 20 con espansione dovran- 
no modificare le prime due in POKE 
36869,5 e POKE 36870,5, 


PROGRRNMR : GEST-FfiN PRO 

i 

* — - — ~ 


VRR. 

! 

LINER 

BEL PROGRAMMA 



fi 

’t' 

! 

i 

52@ 

550 

568 

570 

1300 

1350 


! 

1360 

1378 

1388 

1420 

1490 


m 

1 

1460 

1310 





fi G 

j 

720 

750 

760 

1350 

1330 

1400 


i 

1660 

1880 

1S10 

1830 

1840 

1850 


i 

1860 

1878 

1890 




Riif< 

i 

4=50 

940 

1158 

1360 

1360 

1420 


j 

1430 

1690 

1850 




B 

i 

530 

608 

610 



#v 

E*< 

i 

240 

250 

260 

270 

230 

290 


1 

300 

310 

320 

330 

540 

560 


j 

1550 






c 

* 

630 

700 

718 

820 

830 

840 


i 

1430 






c* 

t 

430 






CCfC 

i 

430- 

310 

1129 

1360 

1360 

1410 


! 

1400 

1688 

1340 




II 

* 

£50 

1068 

1310 

1420 

1518 


DES< 

i 

480 

1000 

1210 

1310 

1370 

1420 


i 

1510 

1710 

1870 




E 

\ 

720 

750 

760 

810 

868 

889 


j 

310 

348 

970 

1000 

1070 

1090 


j 

1120 

1 150 

1188 

1210 



6 

i 

1300 

1418 

1480 




cm 

i 

1820 

1830 





g m< 

i 

480 

388 

1030 

1300 

1360 

1410 


] 

1480 

1670 

1830 


i 


H 

i 

1540 

1558 

1560 




i 

i 

1260 

1270 

1300 

1310 

1350 

140O 


1 

1410 

1428 

1440 

1480 

1490 

1 500" 


j 

1510 






i$< 

! 

34tì 

358 

360 

378 

380 

390 


i 

7£ig 

830 





IN* 

; 

490 

730 

1O20 

1258 

1320 

1610 


i 

1768 






K 

\ 

630 

640 

650 

660 

670 

680 


i 

770 

826 

1248 

1530 



M 

i 

1318 

1420 

1580 




m 

i 

1629 

1630 

1650 

1770 

1780 

1790 


i 

1920 






tiPtc 

r 

430 

370 

11S0 

1310 

1370 

1420 


t 

1500 

1700 

1360 




N 

i 

1580 

1590 





OP* 

ì 

240 

608 





p 

i 

1400 

1430 

1470 

190O 



m 

! 

580 

660 

620 

630 

640 

650 


1 

Filati 

670 

740 

750 

1038 

1040 


] 

1330 

1340 

2010 

2820 



ST 

i 

1330 






T 

i 

1 660 

1670 

1680 

1690 

1700 

1710 


1 

1730 






Ite 

\ 

400 

410 

420 

438 

440 

450 



530 

680 

770 

320 

1240 

1530 


j 

1320 






vo 

l 

790 

300 

810 
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100 REM **#****^**##***!tE*#***#*m:* 
102 REM * CONTABILITO' FAMILIARE * 
104 REM TìTlrTWl '1 il'ilftiMllf 1 IHfHHI ||| ) 
106 REM * AUTHOR SOFTWARE : * 

108 REM + FRANCESCO GATTI *. 

110 REM ***»j|{*********^**^**&^ie$ 
112 REM * VIC 28 HTi * 

114 REM * VIC 20+EXP SI *. 

116 REM * COMMODORE 64 ST * 

118 REM * C16 SÌ * 

128 REM * PLUS 4 SI * 

122 REM * SERIE 4000/8060 SI * 

126 REM ***#*#**!f;##*s(t!f*i(s*^#*N!*****Si 
•12S REM * STRINGHE MESSAGGI * 

136 REM 

132 B$f0)="[RZZUR][2 RIGATI MENU FRI 
HCI PALE : CONTABILITA' " : OPf=" ICH 
SRF" 

134 B$<l)»"ca BONN ] C 0 1 ALLO 1 C RV-S I I 
t RVOFF I - [ R V SIIC RVOFF UBI ANC 0 3 
NSERI MENTO VOCI" 

136 Bf < 2 ) = " [ G I RLLO 3 [ R V8 3 C [RVOFF 3 

- E RVS 3 C [ RVOFF 3 [ B I ANCO 3 AMB 1 0 VO 
CI " 

138 Bi<3>=" [GIALLO! [RVS3 N [RVOFF 3 

- [ B I ANCO 3 Cfl C G I ALLO 3 1 RVS 3 N [ RVOF 
F 3 [ B I ANCO 3 CELLftZ I ONE VOC I " 

140 Bf < 4 > = " C G I ALLO 3 C RVS 3 S [RVOFF] 

~ [RVS3SCRVOFF3C BIANCO 30MMAR IO 
VOCI " 

142 B*C5>=" [GIALLO] [RVS 3 R C RVOFF 3 

- [ RVS 3 R [ RVOFF 3 [ BIANCO] I CHIAMO 
E MEMQRI2AZI0NE" 

144 Bf < 6 J = " [ AZZUR ] [ RVS 3 F [RVOFF] - 
[ RVS 3 F [ RVOFF 3 [BIANCO] INE" 

146 Ef < 7 > = " [ 2 DOWN 3 COI ALLO 3 [ RVS ] 1 
[RVOFF3 [BIANCO] MEMORIZZAZIONE” 
148 [GIALLO] [RVS 3 2 [ RVOFF 3 [ 

BIANCO! RICHIAMO" 

100 Bf (30=" [GIALLO] [RVS3 3 C RVOFF ][ 
BIANCO! MENU PRINCIPALE" 

152 I$<0)*"C3 BONN] VOCE NUMER 

0 : " 

154 Ifa> = " GIORNO DEL MESE : [RVS 
3 [2 LEFT3 [RV0FF3 " 

156 CODICE CATEGORIA [RVS 

] E 2 LEFT3CRVOFF3" 

158 I$<3>«" AMMONTARE ■ E RVS 

] ro i FFT 1 TR'itTiFFI " 

160 I f f 4 > = " MODO DÌ PAGAMÉNTO : [RVS 
3 [4 LEFT3 [RVOFF 3 " 


162 I f C 5 > = " DESCRIZIONE : [RVS 

3 C 12 LEFT3 [RV0FF3 " 

164 T*<0>* "CONTABILITA' FAMILIARE" 
166 Tf< 1 >=" [DOWN] [ RVS 3 [GIALLO! MODA 
I USER I MENTO [RVOFF] [BIANCO]" 
168 T*<2>=" CLOWN! CRVS3 [GIALLO! MODA 
CAMBIO VOCI [RVOFF 3 [BIANCO 3" 
170 T*<3>=" CLOWN] [RVS3CGI ALLO] MOLO 
CANCELLAZ I ONE [ RVOFF 3 E B I ANCA ] “ 
172 Tf C 4 ) = " [ DOWN 3 [ RVS 3 [GIALLO] SOMM 
APIO VOCI PER ERV0FF3 [BIANCO] " 
174 Tf<5>=" CLOWN! CRVS3 [GIALLO] RICH 
IAMO E MEMORIZZAZIONE [RVOFF] [É 
I ANCO 3 " 

176 REM #^**4:*###*#**^*****ii(!*#^ìti**sff 
178 REM * INIZIO PROGRAMMA * 

180 REM *#**##*if!*************lH**!(i** 
1 32 PR I NT" E CLEAR 3 " : PQKE 532S0 , 6 : POK 
E 5328 1 j 6 : POKE 646. 1 
184 OPEN 1.0 

186 D I M GMf [100J.CC* < 50 > flMf ( 5@ > , MP 
*<50).DE* (50) 

188 C$=CHR*(13> : IN*«CHR*<157> 

130 PR I NT : PR I NT : PR I NT TAB < 6 > T* C 0 > 
132 PRINT TAB (.8) " [2 D0WH3DI GATTI f 
RANCE SCO " 

194 FOR H=0 TO 500 : NEXTfi 

196 REM *************************** 
198 REM * MENU PRINCIPALE * 

20O REM *************************** 
202 FRI NT" CCLEAR 3" 

204 PRINT TAB(3>Ef < 0. 

206 FOR R=1 TO 6 

208 PR I NT TAB < 6 > B* f A > : PR I NT 

210 NEXTfl 

212 GET R* : IF R$="” THEN 212 
214 FOR B=1 TO 7 

1 216 IF MIDff0Pf.B-.O-Rf THEN 220 
218 NEXTE : GOTO 212 
220 IF R*="F" THEN 532 

222 IF Rf = " I " THEN K«OG0T0 238 
224 IF Rf="C" THEN K*2 ; GOTA 262 
226 IF Rf = " N " THEN K*3 = GOTO 362 

223 IF Rf="S" THEN K=4 AATO 398 

230 IF Rf="R" THEN K=5 ■ GOTO 432 
232 REM ^**«if*«$m^***ifm***^» 
234 REM * INSERIMENTO VOCI * 

236 REM *************************** 
238 PR I NT " C CLEAR 3 " : PRINT TAB < 8 > Tf < K 

/ 
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240 FOR e=0 TO 6 
242 PRINTItCC) SPRINT 
244 NEXTC 

246 E=hG:E=E+1 : GOSUB 320 
248 PRINT" C2 DOWN] [RVS] [GIALLO] VUO 
I CONTINUARE ? CRVOFF3 [BIANCO! : 
SI "IN* IN*; 

250 INPUT# 1,R* 

252 IF R*= "NO" THEN RG=E : GOTO 202 
254 AG-E '■ GOTO 246 

256 rem i 

258 REM * MODIFICA VOCI * 

268 REM ***#*##**#*#*!**###*#**##*#* 
262 PRINT" [CLEAR]" PRINT TAB<8)T*<K 

264 PRINT" C 2 SO UN 3 C EVS K GIALLO] QUA 
LE VOCE DESI SERI CAMBIARE ? CRV 
OFF] [BIANCO] "J 
266 INPUT# 1 , VO 
268 IF VO=0 THEN 282 
270 E=VO 

272 PRINT" t CLEAR!" : PRINT TABC8)T*(K 
) : FOR C=0 TO 6 
274 PRINTI*<C) : PRINT 
276: NEXTC 

278 PRINT" [HOME] "'FOR D=0 TO 4:PR1N 
T ; NEXTD 

280 PRINT TAB<20>E- PRINT 
282 PRINT TAB < 20) 

234 PR I NTGM* CE) 

236 PRINT 

288 PRINT THBC20) 

290 PRINTCC*(E> 

292 PRINT 

294 PRINT TRE (26) 

296 PRINTAM* <E> 

298 PRINT 

800 PRINT TRE ( 20 > 

302 PRINTMPiCE) 

384 PRINT 

386 PRINT TABC28) 

388 PRINTDEtCE) 

310 PRINT : GOSUB 326 

312 PRINT" C2 DOWN] CRVS1 [GIALLO] VUO 
I CONTINUARE ? [RVOFF] [BIANCO! : 

SI" IN* IH*; 

314 INPUT# 1 , R* 

316 IF R*="SI" THEN 262 

313 GOTO 202 

328 FRI NT " [ HOME 3 " : FOR B=0 TO 4 -FRI N 
T ^ NEXTD 


322 

324 

326 

328 

330 

332 

334 

336 

338 

340 

342 

344 

346 

348 

358 

352 

354 

356 

cr p 

360 

362 


364 


366 

368 

37@ 


374 


376 


Ì78 


388 

382 

384 

386 

388 

390 

392 
394 
396 

393 
400 


PRINT TRB(20>E: PRINT 
PRINT TABC20) > 

INPUT#!/ GM*<E> 

PRINT -PRINT 
PRINT TAB(20>; 

INPUT# 1 /.CC* CE) 

PRINT: PRINT 
PRINT TRE < 20), 

INPUT# 1 , AM*(E) 

PRINT PRINT 
PRINT TABC20); 

INPUT# 1 , MF*(E> 

PRINT : PRINT 
PRINT TABC20); 

INPUT# 1 , DE* CE> 

PRINT 

RETURN 

REM ***#!**##*#!##**#***********# 
REM * CANCELLAZIONE VOCI *■ 

REM «Ufi#####****#***#*****#***#* 
PR I NT " C CLEAR ] " : PRINT T AB C 8 ) T* < K 

) 

PRINT" 12 DOWN! [RVS] [GIALLO] QUA 
LE VOCE VUOI CANCELLARE ? [RVGF 
F! [BIANCO]: 0"IN*.: 

INPUT# 1, I 
IF 1=0 THEN 202 
GOSUB 416 

PR I NT : PR I NT " [ 2 DOWN 3 [ R VS ] GG . [ R 
‘/OFF ! [ RVS 3 COD. [RVOFF3 CRVS! A 
MMONT . [ R V OF F 3 C RVS 1 MODA . I RVQFF 
] [RVS] DESCRIZIONE CRVOFF!" 
PRINT TAB < 4-G > GM* C I > ; TABC7)CC* 
CI); TAB C 20-fi > AM* C I ) , 

PR I NT TAB < 25-M ) MP* < I > ; TAB C 48- D 
) DE* < I > 

PR I NT : PR I NT " [ 2 DOWN ] CONFERII I LA 
CANCELLAZIONE ? : NO" IN* IN*; 

I NPUT # 1 , R* 

IF R*="NO” THEN 202 
FOR A=I TO AG 

GM* C A ) =GM* < A+ 1 ) : OC* < A > =CC* < A+ 1 ) 

: AM* C A ) =fiM$ C fi+ 1 ) 

MP* C R ) — MP* < R+ 1 > : DE* < A > =DE* C A+ 1 > 
NEXTA : AO=AG-l GOTO 202 

REM ***##****#**#3|f#*Ht****itf****::* 
REM :* SOMMARIO VOCI * 

REM **#*#***'ie*if#i#*****if*****#*3* 

GOSUB 522 

FOR 1=1 TO AG : P=P+1 : GOSUB 416 
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402 PRINTU TREC6-G)GM$<I>; TfiBCSJC 
C*<I>; 

404 F'RINT TfiB<2ì-A)fiM#ai>; TAB<26-M 
) MP# CI); TRE ■; 40-D > DE* < I > 

406 IF P>7 THEN GOSUB 518 
408 HEXTI 

410 PRINT" [DOWN 3 PREMI UN TASTO PER 
CONI I NUfiRE " 

412 GET R* ■ IF fi*^’" THEN 412 

414 P=0 : GOTO 202 

416 G=LEN< GM* < I ) ) : C=LEN C OC* < I > > 

418 R=LEN';fìM*(0) 

420 n=LEN<MP*a>> 

422 D=LENfDE*<I>> 

424 RETURN 

426 rem 

428 REM * GESTIONE ARCHIVIO DRTI * 
430 REM ****#**###*****#*# **#*##*** 
432 PRINT" I CLEfiR 3 " : F'R 3! NT TRE < 4 ) T* < K 

? 

434 FOR H=7 TG 10 

436 PRINT TRB<6)B*CH) : PRINT 

438 NEXTH 

440 PRINT" [DOWN] COSA SCEGLI ? 

442 INPUT# 1,N 

444 ON NGOTO 452,488,202 

44 6 REM **#*****#*###*#*##******#** 
448 REM * MEMORIZZAZIONE DATI * 
450 REM *#####9N**i#***3#^*3(s-mi****** 
452 PR I NT " [ CLEfiR ] 11 ■ F'R I NT TflB< 6 > " t RV 
8] COI ALLO 3 MEMORIZZAZIÓNE CRVOF 
F3 IBI ANCO] " 

.454 PRINT" 12 BOWN3 [RVS3 PER CHE MES 
E E ANNO ? t RVOFF 3 ; MMMflA” IN* IN* 
IN# IN* IN*; 

456 INPUT# 1,M* 

458 IF M#="MMMAR" THEN 202 
460 PRINT PRINT" E 2 DOWN 3 ERVS3 CGIALL 
03 SCRITTURA DATI ERV0FF3 EBIflNC 
03" 

462 OPEN 5, 8,5, "00 : " +M*+ " , S , W " 

464 FOR T=1 TO RG+1 
466 PRIHT#5,GM$<T> 

468 PRINT#5,CC*<T) 

470 PRINT #5, AM$<T> 

472 PRINT#5, MF#<T> 

474 PRINT#5,DE*CT> 

476 NEXT 

473 FOR T=1 TO 5- FRI NT#5, NEXT 
480 CLOSE 5: GOTO 282 

482 REM **###*i#*##*##*#*#*#**##^*** 


484 REM * RICHIAMO DATI * 

486 REM ###**#**!##*#*#*#*#####!###*# 
488 PRINT" CCLEAR3 "= PRINT TAB(13>"ER 
VS3 [GIALLO] RICHIAMO CRV0FF3CBI 
ANCO]" 

498 F'RINT: PRINT" E2 D0WN3 ERVS3 PER C 
HE MESE E ANNO ? ERV0FF3 : MMMRfl" 
IN# IH# IN# IN* IN#.: 

492 INPUT# 1,M* 

494 IF M*-"MMMAfi" THEN 202 
496 OPEN 5,8,5, "@ : "+M#+",S,R" 

498 AG-0 
506 AG=RG+1 

502 INPUT#5, GM# • IF GM$="##" THEN 51 

6 

504 GM$<AG>=GM* 

506 INPUT #5, CC# < AG? 

508 INPUT#5,AM*CAG> 

510 IHPUT#5,MP*CRG) 

512 INPUT#5, DE* <AG3 
514 IF ST=0 THEH 590 
516 AGsfiG-1 : CLOSE 5: GOTO 202 
518 P=0= PRINT" PREMI UN TASTO PER 
CONTINUARE " 

529 GET A# : IF A*="” THEH 520 

522 PRINT" ECLERR] PRINT TAB(B)T*(4 
>M* 

524 PR I NT " E 2 BONN 3 E R VS 3 H . E RVOFF 3 [ 
RVS 3 GG . E R VOFF 3 E R VS 3 COI) . E RVOF F 3 
[ RVS 3 AMMONI . E RVOFF 3 ERVS 3 MODP 
. C RVOFF 3 E RVS 3 DESCR I Z I ONE E R V OF 
F 3 RETURN 

526 REM *************************** 
528 REM * USCITA PROGRAMMA * 

530 REM m*mMMmm*m*:#w**M*** 
532 PRINT "ECLERR 3" PRINT TABU 1 VER 

VS3 ATTENZIONE C RVOFF 3" 

534 PRINT 'PRINT TRBC5>"C2 D0UN3PRIM 
A DI USCIRE DAL PROGRAMMA " 

536 PRINT TRB < 5 V E DOWN 3 ASSICURAI I D 
f AVER SALVATO" 

538 PRINT TRE (5>“ E DOWN 31 TUOI DATI 

II 

548 PRINT TRE ■! 5 >" E DOWN 3 PREMI E RVS 3 
M E RVOFF 3 PER TORNARE AL" 

542 PRINT TRE < 5 V’C DOWN 3 MENU PRINCIP 
ALE, UN ALTRO TASTO" 

544 PRINT TRE ( 5 > " E DOWN 3 PER TERMINAR 
E" 

546 GET R# : IF R*=" M THEN 546 

543 IF R*="M" THEH 202 

55S PR I NT " C CLEfiR 3 " : CLOSE 1 : END 
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MICROSCOPIO 
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In questo articolo, e negli altri che se- 
guiranno, descriverà, locazióne per lo- 
cazione, quella zona della RAM usata 
dal sistema operativo def CSM 64. Que- 
sta parte dal byte 0 e giunge fino ai pun- 
tatori dei dati degli sprites, cioè al byte 
2047 compreso. Certe zone saranno de- 
scritte in modo particolarmente detta- 
g lieto nel corpo dell 1 articolo, e saranno 
indicale in neretto nella mappa globa- 
le. 

Prima di cominciare è opportuno da- 
re un occhiata ai termini che verranno 
usali più frequentemenie: 

* ASCII: American Standard Code for 
Information Interchange. È un modo 
standard di assegnare dei numeri ai ca- 
ratteri della tastiera, I computer Commc^ 
dorè hanno un codice molto simile al- 
l 'ASCII anche se non proprio standard. 

* Default: indica lo stato delle locazio- 
ni al momento dell’accensione della 
macchina 

* Pointer: (puntatore). Con questo no- 
me si indicano due bytes consecutivi 
che contengono l'indirizzo di un registro 
contenente un dato. Il valore del l'indi- 


rizzo varia da 0 a 65535. Il primo dei due 
(low byte) contiene la parte bassa. L'al- 
tro (high byte), Ea parte aita. 

L'indirizzo si calcola quindi: 

Eow byte + 256 4 high byte 

Il pointer de il' inizio delia zona BASIC, 
per fare un esempio, è alle locazioni 43 
e 44. Per trovare dove comincia questa 
zona basta scrivere 

RRINT PEEK (43) + 256 * PEEK (44) 

IE risultato in condizioni di default de- 
ve essere 2049, 

* Fìag: (segnalatore). È un registro che 
può assumere vari valori, corrispondenti 
alLawerarsi o meno di certe condizio- 
ni. 

Come esempio possiamo considera- 
re il flag al l'indi lizzo 10. Questo assu- 
me il valore Dota seconda che sia in 
corso una operazione di Load o di Veri- 
fy. 

* Vector: (vettore): è molto simile ad un 
puntatore, solo che V indi rizzo rappre- 
senta l'inìzio di una routine in linguag- 


gio macchina. 

* Kemat; È il sistema operativo del 
CBM 64, (Insieme di puntatori a routi- 
nes). 

* Registro: È un 'altro modo di chiama- 
re una locazione di memoria. Può es- 
sere più lungo di un Byte. 

* Pagina: Sono 256 Bytes di memoria . 
Il CBM 64 ha 256 pagine di RAM. 

* Buffer: È una zona delia RAM usata 
per immagazzinare dati. 

* 1/Q: Input/Output Sono tutti quei di- 
spositivi con cui it CBM 64 dialoga con 
l'esterno, Nell’articolo si riferisce al VJC 
11, alle due CIA h al SID e più in generale 
ai dispositivi presenti nei 4 Kb che van- 
no da SDOOO a SDFFF, 

* CIA: Compiex Interface Adapler. So- 
no i microprocessori dedicati alia comu- 
nicazione dei computer con il mondo 
esterno. Nel CBM 64 sono due 

* VIC IL Video interface Contro Eie r. È 
il microprocessore dedicato alla gestio- 
ne dello schermo. 

* SID: Sound Interface Device, È lo 
speciale microprocessore dedicato al- 
ia generazionedei suoni e dei rumori. 
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a 


Vie II 
Delault 
E e he 
15 R 


$FFFF 


Carachter Sei 
flit a ur $atra i 
Q-Etisr Poni I^Ì-d 


SEGGO 

SDCOO 

$0800 

$0000 


SCODO 


$ÀOOO 


$8000 


$4000 


$2000 


$0800 
$0400 
- $0000 


berrai ftcrr 


Eia IXia a 


Cclsijr Pam Hifatrtes 

Vie 5 id 


4 P Barn 


■ : :6bsic; ; 
Interpreter 
Pcm 


Basic 

User 

Pam 


5creer 


VJprkspacB 


abbi Pam 

BÌVI m $emd« 

Q-Bam ;-T 

l-hemal Pdid 

4 P Pam 7 

Bits □ e I di $533 I 
Q-Pam Vi-c Ùev. 


a P Lo Pam 
Bit □ di $□□□* 
3-Pam 
MBasic Rem 


Enrcir 

5 P Rem Bar triduo 






pi Pes Sereen 


Celeri Hires 


Figura 1 : architettura efesia memona del CBM 64 
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Bytes 0 e 1 : area di gestione 
della memoria 

Il CBM 64 riesce a gestire 64 Kb di 
RAM, 20 Kb di ROM e 4 Kb di dispositi- 
vi di I/O, usando un microprocessore, 
il 6510, capace di indirizzare solo 64 Kb. 
Il segreto sta nella porta dì I/O locata al- 
l'indirizzo 1 . Usando come interruttori i 
bit di questo registro è possibile acce- 
dere alle ROM ' nascoste'' sotto alla 
RAM principale. Jl registro alf indirizzo 

0 permette inoltre di definire la direzio- 
ne del flusso di dati attraverso la porta 
di I/O. 

Vediamo le caratteristiche dei bit delia 
porta: 

Bit 0: é chiamato LQRAM. Gestisce 
gli 8 Kb della ROM del BASIC, da 40960 
a 491 SI ($A0G0-$BFFF). Se LORAM è 

1 (High) , la ROM è inserita. Se è 0 (Low) 
la ROM sparisce ed ò rimpiazzata da 8 
Kb di RAM. 

Bit 1 ; ò chiamato H I R A M . G est isce gl i 
8 Kb dette ROM del KERNAL, da 57344 
a 65535 ($E00O-$FFFF). Se HI RAM è 


High la ROM è inserita, Aìtnmenti al suo 
posto compaiono 8 Kb di FtAM. 

Bit 2* è chiamato CHAREN. Gestisce 
1 4 Kb della ROM dei caratteri, da 53248 
a 57343 (SDOOO-SDFFF). Se CHAREN 
è High la ROM non è inserita e at suo 
posto compaiono la mappa dei colori di 
schermo e i dispositivi di I/O, che sono 
il VIC II, if SID e le due CIA. 

Bit 3 T 4 e 5: gestiscono il registrato- 
re a cassette. È Importante non alterar- 
ne il contenuto. 

Bit 6 e 7: non usati. 

Il valore dei registro direzione dati de- 
ve essere 47. cioè 00111101 binano, do- 
ve 1 indica un Output e 0 un Input. In 
figura 1 potete vedere l'architettura della 
memoria del CBM 64 con il riassunto 
delle cose dette fino ad ora. 

Bytes da 43 a 56: 
area puntatori del BASIC 

Questa zona contiene sette puntato- 
ri che gestiscono le zone dì memoria oc- 
cupale dal BASIC- 1 loro valori dì default 
sono: 


Bytes Descrizione default 


43-44 

Inizio area programmi 

2049 

45-46 

Inìzio area variabili 

2051 

47-48 

Inizio area vettori 

2051 

49-50 

Fine area vettori 

2051 

51-52 

Inizio area stringhe 

40960 

53-54 

Utilità generale 

40960 

55-56 

Tetto del basic 

40960 


Nella figura 2 potete vedere come so- 
no disposte queste zone in presenza del 
programma seguente, 

10 REM GESTIONE AREA PROGRAM- 
MI BASIC 

20 A$ * "PIPPO'*: B$ - "TOPOLI- 
NO C$£=A$ + B$ 

30 DIM A(20) 

100 FOR I = 43 TO 55 STEP 2 
110 PR1NT PEEK(I) + 256 ’ PEEK(I + 1 ) 
120 NEXT I 

Il programma stesso stampa sullo 
schermo ì valori del sette puntatori. Pro- 
vate a modificarlo aumentando la lun- 
ghezza delle siringhe, delle merci, ecc. 
e confrontate i risultati ottenuti. 



409 60 



FMj u ra 2: zone ci memoria disposte in funziona ttel programma di paa. 
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HOC 

DEC 

DESCREIOIE 

0000 

0 

Registro direzione doti del 6510 

0001 

1 

Registro di I/O a 8 bit. 

0002 

2 

E‘ usato dal computer per memorizzare 
temporaneamente informazioni di cui ha bisogno* 

Non usotelo, potrebbe "inchiodare - la macchino* 

0003-0004 

3-4 

Jump vector per la conversione da virgola mobile 
ad intero. 

0005-0006 

5-6 

Jump vector per la conversione do intero a 
virgola mobile- 

0007 

7 

Ricerca carattere. Memorizza il valore ASCII 34 
(virgolette ). 

0008 

8 

Flag di ricerca virgolette alla fine di una stringo- 

0009 

9 

Colonna schermo dalVultimo TAB. 

OOOA 

10 

Flag: 0=Load, 1-Yerify. 11 valore cambia con 

Tultima operazione di disco a nastro- 

00QB 

11 

Pointer al buffer di input/ Numero di elementi- 

oooc 

12 

Flag: dimensionamento matrice di default. 

Contiene il valore della prima lettera del Fui timo 
matrice dimensionata* 

0000 

13 

Tipo df dati in lettura: SFF^stringa, 600-numerico 

000E 

14 

Tipo di dati in lettura: $80= Intero, t00= virgola 
mobile. 

OOOF 

15 

Flag: scansione DATA/ virgolette LIST/ Raccolta 
spazzatura- Il valore di defoult è 4, 

0010 

16 

Flag: numero di elemento di matrice/ Chiamata di 
una funzione utente. 

001 1 

17 

Rag: $00= INPUT, $40^6ET P S98-READ* E* zero di 
default. 

0012 

18 

Flag: Segno dello tangente/ Confronto risultati. 

Testa la divisione Si N/COS per verificare il segno 
della tangente* Il valore normale è zero. Diventa 

255 se l'argomento di TAN è maggiore di 259* 1 . 

0013 

19 

Flag: Presenza del prompt di INPUT* 

00? 4-00 15 

20-21 

Immagazzinamento temporaneo di valore intero- 
li basic mette qui le variabili intere usate nei 
calcoli- Le routines puntate dot registri 3“4 e 5 _ 6 
usano questo numero. 

0018 

22 

Pointer: Stack per stringhe temporanee. 

Normalmente punta a 25, 

0017-0018 

23-24 

Ultimo indirizzo di stringa temporanea. 

0019-0021 

25-33 

Stock per stringhe temporanee. 

0022-0025 

34-37 

1 puntatori memorizzati qui puntano a delle 
subrautines della Rom Basic» 

GO26-0O2A 

38-42 

Prodotto di moltiplicazioni in virgolo mobile. 

Queste locazioni sono usate bolle routines di 
sistema ogni qualvolta numeri positivi o negativi 
mollo grandi sono moltiplicati. 

002B-002C 

43-44 

Pointer: Inizio dell'area programmi 
basic. Default 6801(2049) 
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HOC 

DCC 

DESCRIZIONE 

Q02D-002E 

45-4B 

Pointer: Inizio deir area variabili baste. 

002F-Q030 

47-48 

Pointer: Inizio del l'or ea vettori basic. 

0031 ”0032 

49-50 

Pointer: Fine deirarea vettori basic (♦! ). 

0033-0034 

51-52 

Pointer: Inizio dell’area stringhe. 

0035-0036 

53-54 

Pointer: stringhe di utilità. 

0037-0036 

55-56 

Pointer: Tetto del basic. 

0039-003A 

57-58 

Numero dello linea basic corrente. 

003B-003C 

59-60 

Numero della linea basic precedente. 

003D-Q03E 

61-62 

Pointer: indirizzo del Basic da cut ripartire dopo il 

CONI. Normalmente è 2048. 

003F-0040 

63-64 

Numero della lineo di DATA corrente. 

0041-0042 

65-66 

Pointer: Indirizzo del dato corrente in una riga 

DATA. Normalmente è 2048. 

0043-0044 

67-68 

Vettore: routine dì Input. Questo è l 'indirizzo della 
locazione dove ì INPUT mette temporaneamente i 
suoi dati, cioè i 76 bytes do 512 a 600. Non potete 
cambiare questo valore. Mettere piu di 78 bytes 
nel buffer porta alla perdita del buffer stesso» 

0045-0046 

69-70 

Nome della variabile basic corrente. Quando il 

Tiome è un carattere singolo, contiene il suo 
valore ASCII. 

0047-0046 

71-72 

Pointer; Variabile attualmente in elaborazione. 

004 9-004 A 

73-74 

Pointer: Variabile di indice cicli POR. .NEXT. 

004B-D060 

75-96 

Puntatori temporanei/ Area dati. 

0061 

97 

Accumulatore ti: Esponente per virgola mobile. 

0062-0065 

98-101 

Accumulatore #1: Mantissa per vìrgola mobile. 

0066 

102 

Accumulatore il: Segno per virgola mobile. 

0067 

103 

Pointer: costante per calcoli in serie. 

0068 

104 

Accumulatore #K Overflov. 

0069 

105 

Accumulatore #2: Esponente per virgola mobile. 

006À-006D 

106-109 

Accumulatore #2: Mantissa per virgola mobile. 

DOSE 

no 

Accumulatore #2: Segno per virgola mobile. 

006F 

1 1 1 

Risultato confronto segni tru Acc.il e Acc.tZ. 

0070 

112 

Accumulatore #1: arrotondamento di ordine 
inferiore. 

0071-0072 

113-114 

Pointer: buffer di cassetta. 

0073-008À 

115-138 

Subroutine: Prende il prossimo byte del testo 
basic. 

0079 

121 

Entrata per ottenere nuovamente lo stesso byte 
del testo. 

007A-007B 

122-123 

Pointer: Byte corrente del testo basic. 
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PROGRAMMAZIONE 

STRUTTURATA 

dì Mariangela Guardlone 

(seconda parte) 


In questo secondo articolo sulla programmazione struttu- 
rata, applicata ai BASIC, si esamineranno parte delle istru 
zioni che costituiscono questo linguaggio (mentre le rimanenti 
verranno esaminate nelle successive puntate) da punto di vi 
sta di struttura logica. 

È infatti necessario acquisire la capacità di programmare 
ovvero di analizzare e di formulare un problema in maniera 
rigorosa per ottener© l'abilità di affrontare in maniera meto- 
dologica tutte te tematiche legate alia programmazione, pre- 
scindendo dal tipo di linguaggio utilizzato, 

BASIC è f acronimo di "Beginner Alt-purpose Symbol io In- 
straciion Code" che tradotto liberamente in itliano significa: 
"Linguaggio simbolico di programmazione adatto per i prin- 
cipianti per tutte le applicazioni '. Questo linguaggio fu svi- 
luppato negli anni 60 al Dartmouth College (Ohio, USA), co- 
me utilizzo interattivo per applicazioni scientifiche e per uso 
didattico. 

Da principio esso fu principalmente utilizzato da ricercatori 
e da tecnici, ma con l'avvento prima dei personal computerà, 
e in seguito degli home ha avuto uno sviluppo estremamente 
rapido (anche per le notevoli estensioni) che gli consente at- 
tualmente di gestire problematiche tipiche sia neJf ambito ge- 
stionale che in quello tecnico-scientifico. 

Un programma in BASIC è costituito da una o più linee che 
vengono digitale dall'utente tramite la tastiera. Alla fine di 
ognuna di esse viene premuto il taso RETURN, che serve per 
segnalare aìHnterprete la fine di una linea di programma. Cia- 
scuna di queste linee è preceduta da "un numero di identifi- 
cazione", Rappresentando tutto questo in pseudo-codifica, di 
cui abbiamo parlato nella prima parte, si ha ciò che vediamo 
nella prima figura, 

Il numero di identificazione serve affinché il computer rico- 
nosca l'ordine in cui devono essere eseguite le varie istruzio- 
ni Volendo, I 1 utente potrebbe inserire le linee in un ordine 
qualsiasi. Infatti è l'interprete stesso che provvede automati 
cernente ad inserire in maniera ordinata tutte le istruzioni se- 
condo una successione crescente, sia in visualizzazione che 
in esecuzione possiamo osservare la progressione delle linee 

Ecco perché questo numero di identificazione permette 
un'eventuale inserzione di una o più linee, all 1 interno del pro- 
gramma, utilizzando semplicemente un numero intermedio. 
Ad esempio: 

5 PRtNT "CALCOLO DEI QUADRATI e CUBI" 

10 INPUT A 
20 B ^ A' A 
30 C « A'A T A 
Ora possiamo inserire tre linee di pr in I semplicemente di- 


gitando: 

15 PRINT A 
25 PRINT B 
40 PRINT C 

Otterremo, come ceno sapeste, questo risultato: 

5 PRINT "CALCOLO DEI QUADRATI e CUBI" 

10 INPUT A 
15 PRINT A 
20 B = A * A 
25 PRINT B 
30 C = A-A‘A 
40 PRtNT C 

Questo è il motivo per cui, normalmente, nella stesura di 
un programma in BASIC, viene impiegato un PASSO di nu- 
merazione in decine. Un altro utilizzo di questo identificatore 
è quello di riferimento, quando viene utilizzata un'istruzione 


< programmi BASIC > : 




Itnf4 0< progFifnrna 

J 




< ìme a di programmi > : 

fmi* Ui f jr»llerfc 

< RETURN > 


Hr fi ( 5 |Fli 7 ICH 1 f SAglC^ 


(nnkcitfi 
In «H29) 


< line* di Itmirioni BASIC > : 


n 


(PfllUfra Ffuic i |Km«ua n> I ì.mlRiLi 



Figura 1 : rappresentazioni in pseudo-codilca del numero di riga BASIC 
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di salto incondizionato (istruzione che verrà di seguito esami- 
nata) ‘ 

Ciascuna linea di istruzione in BASIC può essere costituita 
da una o più istruzioni separate dal carattere 

A questo punto, prima dì iniziar© ad esaminare le varie istru- 
zioni, é meglio spiegare cosa esse significhino in BASIC. 

Un’istruzione BASIC è costituita da: 

* parola chiave: è una parola riservata che specifica l'azione 
che si vuol compiere (E buona norma non utilizzare mai va- 
riabili r! cui nome sia simile ad una parola chiave poiché que- 
sto creerebbe contusioni in fase di elaborazione del program- 
ma). 

* Corpo cfetl 'istruzione : è rappresentato dal F insieme del le no- 
tazioni che descrivono in dettaglio gfi oggetti su cui verrà com- 
piuta l'azione decritta nel programma. 

Istruzioni del BASIC 

L'istruzione REM. REM rappresenta l'abbreviazione della 
parola RFMARK che in inglese significa annotazione, com- 
mento. 

Tutte le parole o i simboli che seguono REM vengono pre- 
se in considerazione dall'Interprete BASIC non come appar- 
tenenti ad istruzioni eseguibili, ma bensì come aulodocumen- 
tazione per le varie istruzioni che si vogliono far eseguire. 

L’aulodocumentazione dei programmi, come già spiegato 
nella prima parte, è molto importante in quanto permette al 
programmatore di ricordarsi tutto ciò che ha fatto eseguire nei 
programmi da lui realizzati anche a distanza di tempo. 

L'istruzione REM nella notazione in psudo-codifica è rap- 
presentata nella figura n. 2. 



L 'istruzione INPUT. Questa istruzione, il cui significato de- 
riva dall'inglese IN = dentro, PUT - mettere, serve per leg- 
gere ì dati dall’esterno (che nel caso dei personal T INPUT clas- 
sico é rappresentato dalla tastiera) e porli nella memoria del- 
l'elaboratore alle posizioni che vengono identificate dai nomi 
delle variabili specificate nella lista che segue la parola chia- 



ve 

I valori delle precedenti variabili della lista vengono sosti- 
tuiti dai nuovi e tutti i caratteri che vengono digitali attraverso 
la tastiera sono rie messi dall’elaboratore sullo schermo, af- 
finché l'utente possa verificarne l’esattezza ed intervenir© in 
caso di errore. 

Anche per questa istruzione la notazione grafica in pseudo- 
codifica è rappresentata nella figura 3 

L'istruzione PRtNT. L’istruzione PRINT, che in inglese si- 
gnifica stampa, serve per visualizzare i valori relativi alle va- 
riabili che compaiono nella lista che segue la parola chiave 
Nella lista di variabili sono possìbili due separatori: 

• lavi rgola che determinali ncol o n n amento d i og ni e lomen- 
to della lista in una posizione predefinita 

* il punto e virgola allinea i valori delle espressioni stampan- 
doli l’uno di seguito all'altro sulla stessa riga 

Osserviamo nella figura n. 4 la pseudo-codifica per la 
PRINT. 


Istruzione PRTNT: 

r(i>] 

ì 

_ , 

Il ~ j ~ fctfà di #ipF*5iraflJ ' 

< luta di tspf«nom > : 





w 

espressi or&fc 






Figura 4: rappresentazione m psmxJo-codif tea (tel istruzlor^ PRINT 


Fino a questo punto abbiamo esaminato le istruzioni relati- 
ve alCimmissione ed emissione dei dati in un programma. L'e- 
secuzione di questo ipotetico programma può essere richie- 
sta tramite il comando RUN seguito da un RETURN A que- 
sto punto viene emesso il carattere “? a \ che invita l'utilizza- 
tore ad inserire i dati, se questi dovranno essere più di uno 
allora saranno separati da una virgola e queste saranno tan- 
te quante sono le variabili che seguono la parola chiave IN- 
PUT. 

Se 

Sino ad ora sono state esaminate istruzioni eseguibili le un e 
dopo le altre; ora si inizierà a trattare istuzioni che vengono 
eseguite, oppure no r in funzione del risultato VERO o FAL- 
SO di una proposizione logica e che servono per controllare 
if flusso logico del programma ; sì vedrà infine, anche attra- 
verso esempi, come si possano combinare queste istruzioni 
per ottenere programmi strutturati. 

L'istruzione strutturata IF .. THEN... Questa istruzione rap- 
presenta una struttura alternativa in quanto permette al cal- 
colatore di operare delie scelte. Dopo la parola IF si deve porre 
una condizione espressa mediante relazioni matematiche o 
logiche e quindi scrivere la seconda paroia chiave che accom- 
pagna sempre IF. cioè il THEN, e quindi scrivere altre istru- 
zioni. 

Quando il calcolatore, durante l'esecuzione del program- 
ma, incontra l’istruzione IF, analizza la condizione che com- 
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pare dopo ta parola chiave e decide se essa sia vera oppure 
falsa. A questo punto si comporta in maniera diversa in base 
alla conclusione cui esso e giunto. Se la relazione è vera al- 
lora esegue tutte le istruzioni che trova scritte dopo la parola 
THEN, altrimenti, conclude che la relazione esaminata è fal- 
sa e ignora totalmente Tutte le istruzioni presemi sofia stessa 
linea di programma, che seguono il THEN. e continua l'ese- 
cuzione con la linea successiva a meno che l’interprete m fun- 
zione non preveda anche l'istruzione ELSE. 

Con questa istruzione, come già detto precedentemente, 
è possibile far decidere al calcolatore se eseguire o meno al- 
cune istruzioni basandosi su Ciò Che è stato eseguilo prece- 
dentemente daf programma. 

La rappresentazione grafica, mediante il diagramma sintat- 
tico, di questa istruzione è riportata nella figura n 5. 


/jfirjr&flf IF 



Figura 5: rappresanlazior» m paeudo codifica dell islruzkwé BASIC IF 



Figura Sa; rappr$sema 2 >one m pseudo -oatfàca pui dettaglia tfcW'isbvzjqnc 
BASIC IF 


L'istruzione strutturata GOTO. Questa istruzione é nota an- 
che come ,J istruzione dì salto incondizionato’'; questo perché 
serve per mandare il calcolatore ad una qualsiasi linea di pro- 
gramma contenente l'istruzione che si vuole far eseguire Ado- 
perato all'Interno di un programma, il GOTO permette ai cal- 
colatore di eseguire istruzioni che sono poste su linee di pro- 
gramma diverse in un ordine ìndipendnte dal numero di linea. 

Anche per r istruzione GOTO il diagramma sintattico è da- 
to dalla rappresentazione di figura 6. 




Prima di passare all esposizione dellesempjo, in cui si ve- 
drà fapplicaziome pratica delle istruzioni strutturale, fin qui 
esaminate, sia da un punto di vista grafico (mediante i dia- 
grammi a blocchi e i diagrammi di Nassi/Shneiderman) s*a con 
il listato del programma, si vuole dare un breve cenno ai si- 
gnificato di ‘espressione logica" che in questa seconda par- 
te è stata spesso utilizzala 

Le espressioni logiche 

Un'espressione logica è una proposizione che può assu- 
mere solo i valori VERO e FALSO, 

Esempio: 

3 <5: vero 
20 + 20 = 50: falso 


Negli esempi precedentemente elencati compaiono delle 
operazioni relazionali costituite da due operandi (costanti, va- 
riabili, valori di funzioni) legali da uno dei seguenti operatori 


Operatore 

Significato 

Esempio 

- 

uguale 

3 — 3 

<> o > < 

diverso 

3< >5 

< 

minore 

3 < 5 

> 

maggiore 

5 > 3 

< = 0 = < 

minore c uguale 

X< = Y 

* > 0 > * 

maggiore o uguale 

X> - Y 


Vi sono, però, anche espressioni che sono costituite da ope- 
randi logici (operandi logici come AND, OR, NOT) fi valore 
logico FALSO è rappresentalo internamene nel calcolatore 
(cioè in rappresentazione binaria) con il numero intero 0. men- 
tre VERO con il valore 1 Questo permette di simulare varia- 
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bili logiche facendo assumere alle stesse soltanto i valori 0 
e 1 . 

Si passa ora ad esaminare il programma esempio che è rap- 
presentato da una serie di istruzioni che calcolano e stampa- 
no ìa media aritmetica di N numeri. 

Definizione dei problema: 

Dato il numero N intero e gli N numeri reali della successione 
Al . An, acquisiti uno alla volta dalla tastiera, calcolare e staiti’ 
pare la media aritmetica degli stessi. 

Analisi del problema: 

* nome programma: MEDIA 

* dati in input: N [variabile intera], 

A [variabile reale, acquisita una alla volta da 
testerà] 

■ dati in output: M {media, variabile reale] 

* elaborazioni: SOMMA* Al + A2 + A3 + .An 
m = SOMMA fM 



Programma MEDIA 

10 REM CALCOLO DELLA MEDIA ARITMETICA DI N NU- 
MERI 

20 INPUT N 

30 REM INIZIALIZZAZIONE DELLA SOMMA 
40 SOMMA = 0 

50 REM INIZIALIZZAZIONE INDICE CONTROLLO 


60 1 = 0 

70 IF I = N THEN 130 

80 REM INPUT DEI DATI 

90 INPUT "VALORE DATO 11 : A 

100 REM AGGIORNAMENTO SOMMA 

110 SOMMA = SOMMA + A 

120 1 = 1+1: GOTO 70 

130 REM CALCOLO DELLA MEDIA 

140 M = SOMMA/N 

150 PRINT "LA MEDIA È M 

160 END 


Si vuole ora rappresentare questo programma in forma gra- 
fica utilizzando, anziché la notazione lineare (che abbiamo trat- 
tato nelia prima parte comparsa sulla rivista Commodore n 
4), altri due tipi di rappresentazione degli algoritmi che sono: 

1 - Diagrammi a blocchi (Flow-Chart). i cui simboli sono visi 
bili nella figura 7 

La rappresentazione del programma MEDIA utilizzando il 
Diagramma a Blocchi è ri porla! a nella figura B 

2 - Diagrammi di Nassi/Shneiderman, che forniscono una rap- 
presentazione grafica delle istruzioni strutturate nel seguen- 
te modo: 



Figura 9c rappreseniar del medesimo ecogramma MEDIA tramile il 
diagramma di NasaLTS^newlerman 
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CONTROLLO 
NUTRITIVO DEI CIBI 


dii F rancesco Gatti 



Sono sempre di più gii esperti che as- 
seriscono che mangiamo molto e ma- 
le. Riusciamo infatti a condire una sa- 
na spaghettata con elementi che, mi- 
schiati fra di loro, sono ['equi valente di 
un whisky a stomaco vuoto: un vero 
shock per il nostro apparato digerente. 

Quante volte condiamo la nostra pa- 
stasciutta con il burro e poi aggiungia- 
mo del sugo di pomodoro scaldato con 
dell'olio!. Penate al nostro fegato quan- 
do gli arriveranno insieme grassi animali 
e grassi vegetali... 

Prima di continuare è doveroso fare 
una prefazione: il sottoscritto non si 
rende responsabile di danni alle perso- 
ne causati da un uso non corretto o esa- 
gerato dei dati presenti nel programma 
trattato, quindi un consiglio spassiona- 
to: sottoponete ciò che vi propone il pro- 
gramma al vostro medico di fiducia 

Tutti gfi alimenti di natura organica, 
contenenti cioè gtieidL lìpidi, prolidi, 
contengono acqua (HaO) e carbonio 
Questi due elementi sono combustibili 
per eccellenza, danno cioè reazioni di 
combustione e ossidazione. Come tut- 
te le ossidazioni, provocano un alto svi- 
luppo di energia sotto forma di calore, 
questa quantilà di calore è legato alla 
quantità di idrogeno (H) e carbonio (C). 
La quantità di calorie sviluppate da un 
grammo di lipidi (grassi) ù di 9 calorie, 
un grammo di gìicidi (zuccheri) siluppa 
4 calorie, come pure un grammo di pro- 
tidi (proteine). 

Con questi dati non dovrebbe essere 
difficile ottenere le calorie contenute in 
un alimento. Facciamo un esempio: vo- 
gliamo calcolare la quantità di catone 
contenute in un litro di latte. Dovremo 
operare in questo modo: dobbiamo per 
prima cosa analizzare su una tabella ali- 
mentare (presente su molte enciclope- 
die) i composti del nostro alimento, In 
questo caso, il latte. Leggiamo che con- 
tiene, su un litro, 35 grammi di protei- 
ne, 50 grammi di lattosio (zucchero) e 
35 grammi di grassi. 

La terza opzione è chiara: visualizze- 
rà tutti i cibi, con il peso e le catone, da 


voi introdotti. La precisione dei valori dej 
vari componenti di un alimento è a 6 ci- 
fre. Se si volesse rendere più precisi 
questi valori occorre modificare l'istru- 
zione MIDS, in lìnea 1140, inerenti alle 
due matrici Pl$ e P2$. Ricordatevi che 
Tultima DATA deve contenere 
"XXXXXXXXXX ', questo dato serve 
per riconoscere il termine dei dati rela- 
tivi ai vari componenti Un consiglio per 
i golosi: non imbrogliare i dati!! 

Tenendo conto dei valori sopra ripor- 
tati si ottiene: 

35 gr. di protidi x 4 = 140 calorie 

50 gr. di giicidi x 4 - 200 calorie 

35 gr. di lipidi x 9 = 315 calorie 

Sommando le calorie otteniamo il 
contenuto calorico complessivo dì un li- 
tro dì latte: 655 calorie- 
li programma contiene già i dati di 
una dozzina di alimenti con i loro prin- 
cipi nutritivi. Per ampliare il numero di 
alimenti, massimo 100 dato che alla li- 
nea 300 di DIMensfonamento matrici 
abbiamo fornito un numero equivalen- 
te a 100, occorre introdurli nelle righe 
di DATA in coda al programma, in que- 
sto ordine però: il primo elemento con 


risponde al nome seguito dal peso e il 
contenuto calorico relativo 
Poi per ogni elemento vengono forniti 
anche altri dati in questo ordine: 
Proteine in gr. 

Carboidrati in gr. 

Fibre in gr 
Grassi in gr, 

Poiinsaturi in gr, 

Sali in mgr. 

Potassio in mgr, 

Calcio in mgr. 

Magnesio in mgr 
Fosforo in mgr. 

Ferro in mgr. 

Vit. SI in mcgr. 

Vìt. 82 in mcgr. 

Vit. pp in mgr 
Vit. C in mgr. 

Vit, A in U.l. 

Vii D in U.l, 

Por calcolare questi valori occorre 
eseguire dei calcoli in questa maniera: 

Proteine = 15% delle calorie, perciò 
la sua formula è data da (caP, l5)/4 
Carboidrati = 55% delle calorie: 
(car. 55J/4 

Fibre » praticamente carboidrati non 
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PROGRAMMA : PR1NC-NUTR PPG 

, 

VflR* ! LINEA DEL PROGRAMMA 

i 


A 

310 

410 

430 

450 

466 

530 


558 

1270 

1288 

1310 

1350 


A$ 

499 

530 

880 

1110 

1200 

1210 


1330 






RL$( 

300 

330 

466 

470 

938 

1298 


1310 






E 

34Ù 

450 

470 

530 

558 

1288 


1300 






c 

1180 

1230 

1240 




CH 

620 

630 

640 

650 

778 


CAC 

650 






cc 

328 

330 

340 

350 

1270 

1318 

G 

1230 






I 

42tì 

520 

710 

868 

870 

888 


890 

320 

1029 

1068 



i m 

250 

456 





J 

920 

930 

940 

1020 

1030 

1048 


1130 

11 40 

1150 

1248 

1360 


K 

1010 

1030 

1050 




ri 

1220 

1230 

1240 




OFZ 

530 

710 

1060 

1130 



RISC 

300 

420 

530 

710 

1130 

1140 


1150 






P2$ < 

300 

420 

530 

1068 

1140 

1150 

PAC 

300 

310 

340 

460 

470 

530 


930 

1030 

1060 

1230 

1240 


R$ 

740 

750 

320 

338 

950 

960 

i 

990 

1000 





RV$ j 

550 






RVS* 

270 






SI 

1280 

1290 

1310 




SC< 

300 

420 

870 

880 

930 

1030 

V 

300 






ve 

630 

640 

650 

660 

670 

680 

. j 

69Ù 

700 

710 





digeribili, varia da elemento a elemen- 
to 

Grassi - 30% delle calorìe: (caP. 
3QK9 

Grassa poi insaturi = 35% dei grassi 
totali 

Per quanto riguarda gli altri principi 
nutritivi non si può dare una formula di 
derivazione in quanto variano da ele- 
mento a elemento. Rimando alla consul- 
tazione di tabelle alimentari, oppure ad 
un amico medico. 

in ogni caso troverete delle discordare 
ze di valori con i calcoli delie formulo, 
questo perché alcuni li ho ottenuti da la- 
belle già fatte. 

Il programma 

Le funzioni di questo programma so- 
no trattate nel suo unico menu iniziale: 
confronto tra due alimenti, esame di più 
elementi, lista elementi inseriti. 

La prima opzione si occupa di pren- 
dere due alimenti e confrontare i loro 
principi nutritivi permettendo così una 
scelta. Prima di confrontare questi due 
cibi contenuti neJla lista totale, viene do- 
mandato air utilizzatore se ie porzioni 
sono di suo piacimento, in caso contra- 
rio ricalcola i principi nutritivi secondo 
la nuova quantità. 

La seconda via di utiiizzazione del 
programma è quasi come la preceden- 
te però su più alimenti. In questo caso 
esiste un piccolo vantaggio: introdotto 
il numero delle calorìe necessarie in un 
giorno, il computer calcola tutti gli altri 
elementi contenuti in questo valore, che 
li comparerà con i valori dei cibi da voi 
inseriti. Sarà perciò facile determinare 
per ogni pasto la qualità e la quantità 
dei cibi che saranno più indicati per il 
nostro organismo. 


100 

102 

104 

106 

108 

110 

112 

114 

116 

113 

120 

122 

124 

126 


REM *^******************* ****** 
REM * CONTROLLO NUTRITIVO + 
REM * DEI CIBI * 
REM * * * ****** *** ******* ***** * ** 
REM * RUTHOR SOF TORRE * 
REM * FRANCESCO ORITI * 
REM ***** * * * * ******* * ********** 
REM * VIC 20 HO * 
REM * VIC 20+EXP SI * 
REM * COMMODORE 64 SI * 
REM * C16 Sì * 
REM * PLUS 64 SI * 
REM * SERIE 4080/3000 SI * 
REM ** * * *** * * * * ***** * * * * * * * ** * * 


128 IN$=CHR$a5F>+CHR$ < 157 > 

1 30 POME 53288, 8 ■ FOKE 5328 1,0: POKE 
646 , 5 ' FRINÌ'" ECLEflR I " 

132 RV3*=" [RVS] " 

134 FRI N T TRE C 5 > " C 2 BONN ] 1 R VS I C G I RE. 
LO! CONTROLLO NUTRITIVO DEI CIB 
I ERVOFF] C VERDE] " 

136 FRI NT ThB<11>"C2 D0WN3DI FRANGE 
SCO GATTI" 

138 REM *************************** 
140 REM * LETTURA DATI * 

142 REM *************************** 
1 44 D I M li L * < 1 0S > , F'fl ( 100, 19), PI I < 1 9 > 
,P2*<19),V <19),8C<20) 
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146 FOR fì-1 TO 1 8 ' P A ( 0 , R > =0 : NENT A 
143 CCsl 

150 RE Fi D RL*<CC> IF ALT ■[ CC > = " XXXXKX 
XXXX" THEN 162 

152 FOR B=1 TO 19 'READ RFK CO , E NEX 
TS 

154 CC=CC+1 GOTO 150 

156 REM *************************** 

153 REM * MENU PRINCIPIALE * 

160 REM *************************** 

162 PRINT" [CLEAR]" 

164 PRIMI TRE 15) " C2 DQWNHRVS 3 [GIAL- 
LO] 1 [RVOFFK VERDE] CONFRONTRR 
E DUE ALIMENTI" 

1 66 PR I H T TRE < 5 > " C DOWN 1 [ R VS ] C G I ALLO 
J 2 CRVOFF] [VERDE] ESAMINARE DE 
GLI ALIMENTI" 

163 PR I NT T RB < 5 > " [ DOWN 3 C R VS 3 C G I RLLO 
] 3 CRVOFF3CVERDE3 LISTA ALITI EH 

TI" 

170 FRI NT TRE < 5 > " l DOWN 3 C R VS 3 C 0 1 RLLO 
] 4 [RVOFF] [VERDE! FINE PROGRAM 
Mfl" 

172 F'RINT TRE < 5)" CDOWN] COSA SCEGLI 
".-INPUT A 

174 FOR 1 = 1 TO 19:Pl*a>="":P2Ì(I> = 
" " ; SC< 1+1 > =0 : NENT I 
176 ON AOOTO 136, 230,. 412, 410 

173 rem *************************** 

180 REM * VISUALIZZAZIONE * 

is2 rem * Alimento a,b * 

15 4 rem *************************** 

186 PRINT" [2 DOWN] QUALI ALIMENTI " 



1 88 PR I NT " C DOWN 3 DES I DER I CONFRONTAR 
E : A, E "INSINUI N$; : INPUT A, E 
190 PRINT" ECLEARP'ipR IUTA.: TAE<4);A 
L$<:fì>: TAB<30> 1 PR<R> 1 > J "0 " 

192 PRINTB; TAB<4> :AL$<B>; TflB<3@); 
PRCB,1)J"G " 

194 PR I NT ■ PR I NT " [ DOWN ] VUO I MOD I F I Cfi 
RE QUALCHE PORZIONE 
196 INPUT Af IF R$="H0 " THEN 208 
19g GOSUB 390 
200 GOTO 190 

202 REM ****** *************** ****** 
204 REM * VALORI PRINCIPI NUTR. * 
206 REM *************************** 
208 PRINT 

210 FOR 1 = 1 TO 19:pi$<n«STR*<Pfl<fij. 
I ) > i P2$ < I > «STA* < PA <B , I) > i NENT I • 
0PZ«1 

212 PR I NT "CCLERR3" PRINT "ALIMENTO N 

Il ■ 

214 F'RINT TAE <17 >RV$ A ; TAB<26>RV$B 
216 GOSUB 436 

218 PRINT" [DOWN] PREMI UN TASTO PER 
CONTINUARE" 

220 GET A$ ; IF A**"" THEN 220 
222 GOTO 162 

224 rem ****************** ********* 

226 REM * CONFRONTO CALORIE * 

228 REM *************************** 
230 PR I NT " [ CLEAR 3 " PRIHT"[2 DOWN 3 IN 
TROHUCI LE CALORIE CHE HAI E ISO 
GNG" 

232 PRINT" C DOWN] OGNI GIORNO, OPPURE 
MOLTIPLICA IL TUO " 

234 PRINT” CD0WN1PES0 PER 40 :";:INP 
UT C A 

235 REM *************************** 

236 REM * MODIFICA QUANTITÀ'' DEI * 

238 REM * PRINCIPI NUTRITIVI A * 

240 REM * SECONDA DELLE CflL. * 

242 REM *************************** 
246 V < 2 > =C A : V < 3 ) = < C A* . 1 5 ) /4 

248 V(4>=<Cfi*. 55>/4 : V<5>=5 

250 V <6) = £CA*. 30 > /9 ; V C 7 > = . 36*CR < 6 > 

252 V ( S > = 1 00O : V (10)= 1000 

254 V a 1 > =400 : V ( 1 2 > = 1000 

256 Va3>=18-V(14) = 1500 

258 V < 15) = 1 700 1 V C 1 6 > =23 

2S0 V< 17) =60 : V a 8 ) =5006 : V< 1 9> =400 

262 FOR 1 = 1 TO 19 : Pii < I >=STR$< V< I) ) 

: NETTI ^ 0PZ=0 

264 PRINT" [DOWN 3 VUOI L'ELENCO DEI P 
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RIMCIPI NUTRITIVI " 

266 PRIN^'C BONN 3 CONTENUTI IN QUESTA 
QUANTITÀ" 

268 PR I NT " I DOWN 3 B I CALOR l E "J : INPUT 

VX 

27® IF R*="NO" THEN 288 
272 FRI NT" DI LEAR] " 

274 PRI NT "PRINCIPI NUTRITIVI PER CR 
VS 3 "CR " C RVQFF 3 CALOR I E" 

276 OOSUB 436 

278 PR I NT " I DOWN 3 PREM I UN TASTO PER 
CONTINUARE" 

280 GET A* ; IF A$="" THEN 280 

282 rem mmmmM*m**m#*m*m*m 

284 REM * INSERIMENTO AUMENTI * 

286 rem *************************** 

288 PR I NT" CCLEAR 3 C 3 DOWN 3 VUOI BARE 
UNA USTA " 

290 FRI NT"! DOWN 333 1 CIBI <MAX=20> 

: INPUT R$ 

292 IF R$=”NO” THEN 162 
294 PRINT" C BONN 3 INTRODUCI IL NUMERO 
BEI CIBI" 

296 PRIMT" CBGUN3TERMI NATO SCRIVI ZE 
RQ" PRINT 
298 FOR 1=1 TO 28 
300 INPUT SC<I> 

302 IF SC<I>=0 THEN 312 
304 NEXTI 

306 rem mxmsmxmmxmxmmmmm 

303 REM * PRESENTAZIONE CIBI IHS. * 
310 REM *************************** 

312 PRINT" CCLEAR 3" 

314 FRI NT "H. ALIMENTO"; TAB(26>"GR 
AMMI CALORIE" 

316 FOR J=1 TO 1-1 

313 PRINTSCCJ>: TREC3>AL$<SC<J>>; T 
AB<28> ; PflCSCC J) .. 1 > ; TRB<34> ; Pfì< 
SC<J> j 2> 

320 NEXTJ 

322 PRINT" CBOUN3 VUOI CAMBIARE QUALC 
HE PORZIONE "J ■ INPUT VX 
324 IF R$="HO” THEN 338 
326 GOSUB 390 
328 GOTO 322 

330 PRINT “CBOMH3 VUOI RIVEDERE LA LI 
STA " J ■ INPUT PS 
332 IF Ri=“SI” THEN 312 
334 REM *************************** 
336 REM * CARICAMENTO DAI DATI * 
338 REM * DEI PRINCIPI NUTRITIVI * 
340 REM **##*#*#*#***####*******#** 


342 FOR K=1 TO 19 

344 FOR J=1 TO 1-1 

346 PA<8, K >=Pfl< O , K > +PA C SC < J > , K > 

348 NEXTJ 
350 NEXTK 

352 REM *************************** 
354 REM * CONFRONTO * 

356 rem 

358 FOR 1 = 1 TO 1 9 : P2$a>=STR$<PA<0, 
DVNEXTI OPZ=l 

360 PRINT " CCLEAR] " : PRINT TABU 5> "VA 
LORI " ; TAB<24> "VALORI " 

362 PRINT TAB< 14) "STANDARD" ; TAB<25 
) "LISTA" 

364 GOSUB 436 

366 FRI NT "PREMI UN TASTO PER CONTIN 
UARE " 

368 GET A$ : IF A$= " ” THEN 368 
37@ GOTO 162 

372 REM m#**#***#i|s#***f********** 

374 REM * FORMATI DI STAMPA * 

376 rem mmM**Mmwm*M******** 

373 J=J+1 IF OPZ=0 THEN PRINT" 

PI $<J>: RETURN 

380 P1*<J)=MIB*<P1$<J>,1..6) :P2$<J>= 
MIB$<P2f<J>U,6> 

382 PRINT TAB<17>Plf(J>; TAB<24>P2$ 
C J) = RETURN 

384 REM *************************** 

386 REM * MODIFICA PORZIONE CIBO * 
388 REM *************************** 
390 PR I NT " [ DOWN 3 NUMERO BELL " AL I ME NT 
0 " 

392 PRINT" [DOWN] DA MODIFICARE 
394 INPUT C 

396 FRI NT" C DOWN 3 MOLTIPLICARE LA QUA 
NT ITA"" 

398 PRINT" C BONN 30 NUOVO PESO IN GRfì' 
MMKM 0 P>"; : INPUT A$ 

400 IF A$="P" THEN 484 
482 PRINT" ID0WN3PER QUANTO MOLTIPLI 
CO "; : INPUT M-G0TO 406 
484 PRINT" CD0HN3QUANTI GRAMMI IH 
PUT G M=G/PH , :C, 1> 

4S6 FOR J=1 TO 1 9 : P A < C j -J > =PA < C .■ J > * 
M ■ NEXTJ 
408 RETURN 

410 PR I NT " C CLEAR 3 " - END 
412 PRINT" CCLEAR] " ; FOR A=8 TO CCC/1 
2 > 

414 FOR B=t TO 12:Sl=B+i2*R 
416 PRINT" CRVS3 "SI "CRV0FF3"; " . 
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RLI 3 1 


413 

420 

424 

R E M R * 4; W- M ^ M & £ & ¥- & ^ M il'i # & 

REM * C ONTR DLL R ULT I NO RL I MENI 0 
& r. hi i|: : J|: * 4 è- ilfe' ^ Ù * *V * * jf £ & * !f * & 

426 

ir RLSlSli-’rNftNNMMXXX" THEM R= 


<0Cral2> : GOTO 428 


^2. 'Pi 

PRIMI "PREMI UN TOSTO 1 

*ER CONI IH 


mare " 


430 

GEI A$ : IF F!f = " 11 THEM 

430 

437 

PRIMI" [CLERR] " 


434 

r -fE R T 8 " DOT ij 162 


436 

T -»h T 


433 

rem 

Ì?: 

440 

REM % PRINCIPI NUTRII 

IVI * 

442 

pFM 


444 

PRTM T : pp T NT 11 f :Ri fjPTF 

*' ; : GOS 


UB 378 


446 

P R I N T " 1 P PO T E I H E < G ') ] 3 i 

: COSIJB 373 

448 

PRIMI " GARBO I GE, \GV 

GOSUB 373 

459 

'‘bi’v t b it r; r ■ f unr j ^ ■■ i ; ■ 

r 71 i li 1 A aJ j v 7 7 

■fìOSNB 873 

452 

FRI NT "GRASSI »03> 

■GOSUB 373 

454 

PR I NT " POL I NS . CO? M 

■ uO^UB £■ ! r 3 

456 

PRIMI " SfìL I CMG> 

■ LiO':> L'B ,3 

458 

PR T NT " POTRSS 1 0 < MG > tr ; 

■ GORUB 373 

460 

PR I HI " CfiLC I OC MG > " ■ 

: GOSUB 373 

462 

PR I HT 1 1 MAONE 3 1 0 < MG > " ; 

: GOSUB 378 

464 

PR I HT 1J FOSFORO £ MG > " ; 

: GOSUB 378 

466 

PRTNT" FERRO £HG> J! "* 

GOSUB 378 

468 

PRINT" VIT„ B1 ( MCG > 

GOSUB 378 

h l’ ira 

PR I NT fI V I T „ B2 < MCG > M 

■GOSUB 378 

472 

PRIMI" VII- PP< MG > " ; 

’ GOSUB 373 

474 

PR I NT ,! V I T . C < MG ) n ; 

GOSUB 378 

476 

PRIMI" VII. fKUlP M ; 

: GOSUB 373 

473 

PR I NT ” V T T B lì < !j T > " ; 

■ GOSUB 373 

480 

RETURN 


482 

REM 


484 

REM $ TATI DEGLI ALIMENTI * 

436 

REM a***##*#*#***#*## 


433 

BRTR "TAZZA DI LATTE 

INTERO" 24 


4, 153 


498 

BRTR 8 . 5 , 1 2 0 , 8 . 6 , 8 , 1 22 , 352 , 288 


,32,227, 0,78, 428, .2,2 

J4 O .> 0 

432 

BRTR "TRZ2R DI PISELE 

I" , 110,28 

484 

DpTR 2. ?■ 4,3 «3* . 6,< O,. 

25,234, 152 


, 57,39,.6, 148,298,1.2 

.. 46 5400 .■ 0 

486 

TATA "TAZZA BI FUNGHI 

5 1.0© j 17 

483 

IiRTR 1 - 9, 2* 4 - *6: . 1 > EC 

400 . 9 7,6 ,■ 1 


3 , 63 ,, 5 , 2:8 ■ 250 , 2 , 2 , 9 , 

0 

508 

DAT fi » UN P UMODORQ ",109,22 

502 

DATA 1. 1,4.7, .5, .2,0, 

3,244, 13, 1 


4, 27,. 5 , 68 , 48 , . 7 , 23, 909, 8 


534 

506 

TiHTH 

BRTfj 

"UN Fi CIPOLL 

i , 45 j 5 i m t fi 

■ ì -JrJ , Fi 

, 28 , , 

533 

5 * != b 

Il RTF! 

"'ira , , i , 5 ■ 23, 
Ir j. TmZZm DI 

0 

FRUÌ OLI", 

188 , 2 

Gl© 

o 

DRTR 

™; ^ p L 5 , R , _ 7 ; 

.2,8,4,256 

, 17, 0 

512 

,43, p 
Fi h T Fi 

9, 38, 188, ,7 
"CUCOH 1 RIO 

, e, , 28 .. © 

DI 30TT0RC 

en". 

5 14 

30,3 

BRTR 

-ra , 7 ] 1 

t 0 , 8 , 8 > S , 8 

,6, e 4 

516 

0, 13 
BRTR 

t:T,2,93,8 
" TRRHC 1 0 I 1 1 

FOCRCC IR" 

, 1 0© , 


34S 

5 1 g rrfiTf' 5 * 72 8 , 1 3 .■ 0 _■■ 0 .. 0 , 0 .. 0 0 , L 0 ^ 0 , 
0 , 0 ,, 0 , 0, 0 

520 jDRTB " MELONE " , 150. 45 
522 BRTR 1 , 11 - 2 , , 4 , . 2 , @ , 1 3 , 376 , 2 1 , 2 
4 ■ 74' ' E Ss 60 .■ 45 .■ . 3 _■ 53 .■ 5 1 30 , B 
524 DRTfl "SUCCO DÌ POMPELMO" , 180, 43 
526 DATA „ 6 , 10 . 1 ., . 1, .2,0, 1 , 184, là, ì 
2 , 1 5 , . 3, 50 , 20 , . £ , 34 , 1 80 , 8 
528 BRTR " SUCCO IP ARANCIA" , 180, 45 
530 DATA „ ?, 1 9 .4,.!,. 2, 0,1 , 200 , 1 1 , 1 
i , J.7‘ , , 2 , 38 , 38 , . 4 , 50 , 280 , 8 

532 DlTTfl "RISO BOLLITO”, 1 90 , 1 09 
534 BRTR 2 , 24. . 2 , . 1 , . 1 , 0 , 374 , 28, 1 9 , 8 

,28, .9, 119,0, 1,6, 9,0 
536 BRTR "UN PANINO BIANCO" , 23, 62 

533 BRTR 2, 1 1 . 6, 0, „ 7, 0, 1 17, 24 , 19, 5, 
22 , . 6 , ' , 59 , .6,0,0, ‘ * 

540 BRTR ' " CASTAGNE ", 1 @0 , 1 08 
542 BRTR 3, 42 , 10 , 2, 3, 1 , 90, 30, 0 , 8, . 7 
,S, 0 , 1 . 2 , 8 , 0,0 

544 URI fi "BRACIOLA B I MAIALE" , 1 00 , 4 
00 

546 BRTR 23, 9, 8, 30, 2. 5, 65, 400, 14, 27 
■ 270! , 3 . 3 @ 0 , 280 , iS , 8 , 9 , S 
548 BRTR "PETTO TI POLLO ARROSTO”, 1 
00, 148 

558 BATFl 24. , 8 , 9 , 4 , 1 , 65 , 275 ,10, 22: , 20 
9, 17,58, 130,3,9, 38, 8 
552 URTA "TROTA BOLLITA" , 1 99 , 88 
55 4 LRT f l 1. 4 , 0 , 9 , 4- , 8 , 88 , 380 , j. 9 , 1 6 , 3. 5 
9, .4, 39, 49, 5,8, 489, 9 
556 BRTR "CUCCCHXRIO DI MAIONESE" , 1 
4, 101 

558 DATA . 15, .3,0 , 1 1 2 , 8 , 84 , 5 , 3 , 8 , 4 
, .91,3, 6,6,0,39, 8 
568 TATA "UN UOVO ”,54 , 33 
562 BRTR 7, . 5, 8, a. 2, . 5, 66, 78, 23, 6, 1 
18,1.2, 60, 160, . 1 , 8, 648, 27 
564 BRTR "ZNXMNNHXXH" 
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ALTA MATEMATICA 

di Eugenio Coppali 

Tutto sui sistemi lineari, nonché la risoluzione delle equazioni di secondo 
terzo e quarto grado sia nei campo reale che nel campo complesso. 


La teoria dette equazioni è da sempre uno dei campi più 
fertili della ricerca matematica Sin dal tempo dei Babilone- 
si è nota ia formula che consente la risoluzione delle equa- 
ziom di secondo grado: essa richiede l'estrazione della ra- 
dice quadrata da una relazione che lega vicendevolmente 
i coef ficonti (B elevato al quadrato meno 4AC), La scuola 
matematica francese è senza dubbio una delie più prolifi- 
che per quanto concerne la ricerca in questo campo teori- 
co, E quindi opportuno ricordare brevemente le vicissitudi- 
ni di un noto matematico del secolo scorso: Evariste Galois. 

Galoìs che, pur essendo morto in giovanissima età (20 an- 
ni), ha consentito con i propri lavori un notevole progresso 
di questo settore importantissimo dell’algebra. Sino alla metà 
del l'ottocento tutti i maggiori matematici erano soliti porsi 
un problema fondamentale: Sotto quali condizioni è possi- 
bile verificare la risolubilità di una equazione? 

Cerchiamo di approfondire, per quanto possibile, il signi- 
ficato di una tale affermazione. Se vogliamo essere maggior- 
mente precisi nella formulazione del l'interrogativo, sarà ne- 
cessario enunciarlo in modo notevotment più dettagliato: 
Esiste un metodo generalizzato che consenta la risoluzione 
di una equazione comprendente Sa sola variabile X e aven- 
te dei coefticenti appartenenti all'insieme dei numeri natu- 
rali? 

Diamo un semplice esempio di questo interrogativo: l'e- 
quazione X elevato alla sesta, più 4 per X elevato alla se- 
conda uguale a zero, risponde assai facilmente alle carat- 
teristiche richieste in precedenza. Essa contiene effettiva- 
mente te sola variabile X e i due coefficenti appartengono 
entrambi ai numeri naturali. Anche se appuriamo che que- 
sta equazione, e molte altre ancora, sono risolubili, ciò non 
può rappresentare una garanzìa per quanto concerne le pos- 
sibilità di scoperta di un algoritmo generalizzato. 

È proprio partendo da questa considerazione che si può 
meglio comprendere la rivolanza del lavoro di Galois, Egli 
riuscì a dimostrare tramite la teoria dar gruppi un asserto di 
fondamentale rilevanza: "per ogni equazione di grado su- 
periore o uguale al quinto non esisto un metodo generale 
che consenta di appurarne la sua risolubilità ", 

Certamente possono esistere casi particolari in m erito ai 
quali è immediatamente chiaro il risultato, ad esempio X ele- 
vato alla nona uguale a due, probabilmente non creerebbe 
dei problemi neanche ad un ragazzo deile medie inferiori, 
ma questo non è assolutamente di alcuna rilevanza nei con- 
fronti del teorema enuncialo e dimostrato da Gaiois. 

Questi concetti iniziali delimitano chiaramente i limiti teo- 
rici entro ì quali potrà agire il programma che verrà ora ana- 


lizzato. 

Questo software consente il calcolo di equazioni di secon- 
do, terzo, quarto grado e sistemi lineari comprendenti tre 
variabili Le righe che sono situale tra 1 200 e 1260 rendono 
possibile la creazione della mascherina del programma. In 
essa sono contenute alcune PO K E che fanno riferimento ad 
aree assai importanti del computer. Ma poiché il loro utiliz- 
zo in questo caso è finalizzato semplicemente a un fattore 
di carattere estetico possono essere agevolmente e senza 
titubanze rimosse da chi voglia una estetica diversa da quella 
da me proposta. Nelle linee da 1260 sino a 1740 è situata 
la zona di programma che consente di visualizzare i calcoii 
compiuti dal vostro Commodore, 

Sono naturalmente siate contemplate tutte le possibilità 
che possono avere luogo durante la fase di output, trattan- 
dosi di un programma che può analizzare tutti e tre i casi 
di potenza (seconda, terza e quarta). Inoltre il risultato, in 
caso di bisogno, verrà anche analizzato al di fuori delfusuale 
campo dei numeri reali cercando il risultato immaginario del- 
l’ equa zio ne. Naturalmente in questa evenienza verrà visua- 
lizzata la lettera ’T' che all’Interno del campo complesso, 
se elevata ad una potenza di ordine pan, ha un valore no 
gativo (-1). 

Nelle righe a partire dalla 2360 viene calcolata ( equazio- 
ne di quarto grado. Dalla 2960 quella di terzo grado ed infi- 
ne dalla linea 3500 quella di secondo grado. Analizziamo 
in maniera particolareggiata i tre diversi algoritmi. 

Equazioni di secondo grado 

Le possibilità dell’equazione A moltiplicato per X elevato 
al quadrato più B moltiplicato per X più C, posto L, q M uguale 
alla radice di B elevato al quadrato meno 4 per C, sono le 
seguenti, 

* se q = >0 allora esistono 2 radici reali uguali o distinte, 

• se q = < O allora esistono due radici complesse. 

Equazioni di terzo grado 

Immaginiamo dì avere l'equazione X elevato al cubo più 
A2 moltiplicato per X elevato al quadrato piu Al moltiplica- 
to per X più AQ uguale a Q, a questo punto si può facilmen- 
te dimostrare che esiste una radice negativa neirintervallo 
-(1 +v). Ose AO>Oe una positiva neirintervallo 0, (1 + v) 
se AQ<0 

In questo caso * V* è il massimo dei valori assoluti (prò- 
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p no come l’effetto delHst ruzione BASIC ABSj fra i coeffh 
oentr della equazione in esame. 

Naturalmente si verificherà uno solo dei due casi e que- 
sto ci permetterà di trovare il primo dei tre possibili valori. 
Per quanto concerne gli altri due valori si procederà con il 
metodo che prende il nome detlo di 'bisezione dell’inter- 
vallo' 1 Come possiamo spiegare in termi ni sempiici quest’ul- 
timo concetto? Prendiamo ad esempio il sistema della ricerca 
dicotomica che provvede a analizzare una serie di dati par- 
tendo dai lati estremi procedendo verso il centro fino a tro- 
vare ciò che si cerca; prendo il punto centrale di un insieme 
e vedo da che parte debbo andare, in basso od in alto, e 
cosi procedo fino alla risoluzione delia ricerca. Cosi la bise- 
zione dell'Intervallo esamina una porzione di valori sempre 
più piccola e tendente alla perfezione del numero da cerca- 
re. 

Equazioni di quarto grado 

Estremamente banale il caso della equazione dì quarto 
grado che può essere ricondotto ad una eventualità prece- 


dente scomponendo l'equazione originale in due di secon- 
do grado. 

Conclusione 

Al termine di questa parte di programma concernente la 
risoluzione di equazioni è posta la routine di input controlla- 
to che non rende possibile l'infiltrazione, in fase dì digita- 
zione. dei dati di elementi estranei 

Nella seconda parte del programma è affrontato il tema 
dei sistemi lineari, nel caso specifico si utilizzeranno 3 equa- 
zioni con conseguenti tre incognite. 

L'argomento viene affrontalo facendo ricorso a strumenti 
di carattere tipicamente universitario: la regola di Cramer 
(quella che ci permette tramite il calcolo matriciale di risol- 
vere sistemi di tre equazioni lineari, ne una di più ne una 
di meno) consente un calcolo dei valori da ricercare, se pos- 
sibile, sn tempi particolarmente ristretti. Ricordo quindi a chi 
sia particolarmente interessato al! argomento, che esso è 
affrontato usualmente su qualsiasi testo di geometria delie 
facoltà universitarie. 
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VHP. 

' LINER 


DEL PROGRAMMA 



H 

i 

» 2360 

2380 

2400 

2420 

3080 

3190 


! 3140 

316@ 

3200 

4840 

4140 

4860 


i 4384 

4400 

4440 

4460 



FK 

! 1548 

1620 

2220 

2360 

2440 

2460 


! 2430 

2500 

2520 

2540 

2780 

2RO0 


! 2840 

2360 

2800 

2!? 6 6 

2980 

3026 


! 3080 

3120 

3400 

3420 

3500 

8528 

Ri 

1 4060 

41S0 

4268 

4280 

4384 

4490 


! 4440 

4460 





R2 

! 4030 

4220 

4260 

4384 

444@ 


m 

* 2980 

3840 

3080 

3100 



B 

1 2360 

2333 

2480 

2420 

3086 

3100 


! 3140 

3160 

3229 

4040 

4140 

4269 


! 4230 

4320 

4340 

4440 

4460 


B1 

! 4060 

4130 

4260 

4320 

4440 


B2 

! 4080 

4220 

4260 

4320 

4340 

4440 


! 4460 






C 

! 2360 

2400 

2420 

4040 

41 40 

4260 


' 4320 

4384 





Ci 

1 4960 

4180 

4260 

4320 

4348 

4384 


! 4400 






C2 

I 4080 

4220 

426Ù 

4286 

4326 

4348 


? 4384 

4400 





D 

! 2360 

2420 

4046 

4146 

4320 

4348 


i 4384 

4 4 UH 

4448 
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ri 

! 4060 

l 4460 

4180 

4328 

4340 

4384 

4440 

D2 

! 4080 

i 4460 

4228 

4320 

4384 

4480 

4440 

E' 

! 3180 

4260 

4280 




£1 

' 4329 

4340 





E2 

! 4384 

4400 





E3 

t 44J0 

4460 





ER 

! 3180 

3308 





F 

! 4260 

4289 





F< 

! 3128 

3160 

3260 

3328 



FI 

! 4328 

4340 





F2 

! 4384 

4400 





F3 

! 4440 

4460 





0 

! 4268 

4280 





Gl 

! 4320 

4348 





02 

1 4334 

4400 





03 

! 4440 

4460 





H 

! 4268 

4280 





HI 

' 4328 

4340 





H2 

• 4384 

4400 





H3 

! 4440 

4468 





I 

' 1530 

1600 

1629 

1640 

2208 

2220 


' 2240 

3008 

3928 

3060 

4268 

4280 

Il . 

! 4340 






12 

! 4400 






13 

! 4468 






II 

t 2888 

2100 

2128 

2140 

2340 


IM 

! 1788 

1880 

1820 

1848 

1900 

1320 


! 1848 

1360 

2000 

2028 

2840 

2068 


' 2840 

3600 

3700 

3788 



IN* 

! 1620 

4633 

4300 

4880 

4300 


K 

i 2680 

2700 

2748 

2780 

2860 


L 

' 2760 

2800 

4280 




LI 

! 4346 






L2 

t 4400 






L3 

! 4460 






M 

i 2760 
! 4560 

2860 

4230 

4500 

4520 

4540 

N 

' 1328 

1360 

5. 530 

1628 

1740 

2200 


i 2220 

2268 

4340 

4520 



0 

t 4468 

4548 





P 

t 4460 

4560 





PI 

1 4100 






0 

GK 

' 2380 

i 4520 
' 3680 

2440 

2460 

2700 

2720 

2768 

01 

! 3520 

3620 

3300 

3328 



Q2 

' 3580 

3600 

3760 

3808 

3320 


R 

i 2406 
! 4540 

2488 

2500 

2700 

2748 

2769 
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R< 

! 1540 

178@ 

1300 

1320 

1840 

1880 



f 1 900 

1920 

194© 

I960 

£000 

2020 



t 2040 

2060 

2030 

2100 

2120 

2140 



! 2580 

2680 

2720 

2848 

2900 

3360 



I 3620 

3680 

3800 

3820 




RH 

! 4699 

4820 

4860 





RV$ 

i 3880 







S 

! 2420 

2460 

2700 

4560 




m 

! 2640 

3380 






sz$ 

! 1208 

1240 

1260 





T 

! 1300 

3920 






TE 

! 3260 

328® 

3320 





TI 

! 4699 

4720 






TT 

! 3620 

3040 






UT 

' 10000 







M 

! 3500 

354© 

3588 

3760 




X 

f 3120 

4520 

4608 





Xfi 

f 3148 

3240 

3300 

3320 




XB 

! 3140 

3248 

3300 

3340 




xc 

! 2960 

3200 

3220 

3240 

3260 

3320 



1 3348 

3360 

3400 

3420 




V 

! 4548 

4620 






VI 

' 3168 

3200 






V2 

! 3160 

3220 






V8 

! 1360 







VT 

' 1668 







*** 

4, 

' 4560 

4648 

4760 

4780 

4300 

4828 



1 4840 

4968 

4900 





Z* 

! 4700 

4760 

4888 





zc 

1 4699 

4728 






ZT 

i 4699 

4728 







100 

REM 

***#*****+**ME«*iJ E**#*#**#* 

119 

REM 

* 

* 

120 

REM 

* 

RABICI DELLE, * 

130 

REM 

£ 

M 

140 

REM 

* 

EQUAZIONI + 

150 

REM 

* 

* 

160 

REM 

$ 

E SISTEMI LIMEREI * 

170 

REM 

$ 

* 

180 

REM 

f ******* ******** 

190 

REM 

£ 

* 

20© 

REM 


ftUTHOP SOFTI4RRE * 

21U 

REM 


* 

220 

REM 

* 

EUGENIO COPPfìRl *: 

230 

REM 

* 

£ 

240 

REM 

****** 

250 

REM 

* 

*: 

26@ 

REM 

$ 

VC 20 <1610 SI * 



^'C&mmodkTO 


£70 
£Ò0 
£90 
300 
310 
3£0 
340 
500 
600 
610 
6^0 
630 
640 
650 
660 
670 
1 000 


1020 


1 040 
1 060 
1080 

1100 


1 120 
1140 

use 


1188 
1 200 
1220 


1240 
1280 
1261 
1262 
1 26 3 

1264 

1265 

1266 
1267 


REM * 

COMMODORE 

64 

SI 

* 

REM sf: 

COMMODORE 

4000 

SI 

% 

REM * 

COMMODORE 

3000 

SI 

% 

REM * 

COMMODORE 

16" 

S .1 

% 

REM * 

COMM. PLUS 

4 

SI 

% 


REM *4444444444444444***44444 

REM 

REM 

REM 4 4 44 4 444 4 **4*4 4 4#***44 4 4 4 


REM * * 

REM * COPERTINA DI * 

REM * PRESENTAZIONE * 

REM * DEL * 

REM * PROGRAMMA 4 

REM 4 4 


REM *4444444444*4444444444444 

POKE 53230, 238 : POKE 5323 1 , 32 : PO 
KE 53232 , 208 ■ POKE 53233 , 76 : POKE 
53234 ■ 49 

POKE 53235, 234 : POKE 56333, 127 : F 
OKE 788, 238: POKE 789, 207: POKE 5 
6333, 129 

POKE 56325, i:pOKE 676,1 

PRIHTCHRÌ d47> : POKE 53281 , 2 

FRI NT" [7 DOWN H 6 RIGHI! £ RVS] 

11 

PRINT " [6 RIGHI J £ RVS 1 IDI ANCO 1 fi £ 
CELESTE I £ RVOFF I £ RVS I EQUfìZ I ON I 
DI 2,34 GRADO " 

PRINT" C6 RIGHTKRVSI 

£ RVOFF ] " 

PRINT" £3 DONNI £6 RIGHTKRVSI 

It 

PRINT" £6 RIGHTKRVSI £ E I ANCO 1 E £ 
CELESTE K RVOFF 3 C RVS I SISTEMI 

LINEARI 

PRINT" £6 RIGHTKRVSI 

C RVOFF I" 

GET SZÌKF S2*0"A" AND SZ$0"B 
" THEN 1200 

POKE 56333, 127 : F'OKE 789, 234 : POK 
E 788,49 POKE 56333, 129 : POKE 56 
325,21 

IF SZ$="fi" THEN 1230 
IF SZ$=‘’E" THEN 3920 
REM 4444444444444444444444444 
REM 4 4 

REM 4 CALCOLO DELLE 4 

REM 4 RADICI 4 

REM 4 DI UNA 4 

REM 4 EQUAZIONE 4 

REM 4 4 


1268 

1286 

1300 

1320 


1 340 

1360 

ISSO 

1400 

1420 

1440 

1460 

1480 

i 508 

1520 

1548 

1560 

1580 

1600 

1620 

1640 

1660 

1680 

1780 

1720 

1748 

1768 

1761 

1762 

1 763 

1764 

1765 

1766 
1780 


1800 


1 820 


REM 444*444444444.444444444444 
PRINT" CCLEAR1" 

POKE 53288, 6: F'OKE 53281,6 T=1 
INPUT "£ RVS] QUAL' E' IL GRADO DE 
LLR EQUAZ I ONE CRVOFF I [ RVS I " ; N : 
PRINT 

PRINT'KNEROI r 


POR VENI TO N: PRINT** I 


PRINT" ! 

I" 

PRINT" h 

N 

NEXT 
PRINT" ! 

1" 

PRINT" I 
I" 

PRINT" ! 

r 

PRINT" 

-1 [CELESTE!" 

DIM R(5,5),R(4) 

F'R I NT "[ HOME K DONNI" 

POR I=N TO 0 STEP -1 

PR I NT " [ 3 DONN I [ R I GHT I IRVSICOEF 

F I GENTE DI Xt CLEFT]",I; 

GOSU B 4630 : A < N , I > = VAL U N* > : PR I H 
T 

MENTI 

FOR VT = 1 TO 1088 : NEXTYT 
PRINT"CCLEAR]" 

PRINT : PRINT 
GOSUB 2180 

OH N- 1 GOTO 1768,1860,1 9S@ 

REM 4444444444444444444444444 


REM 4 4 
REM 4 GESTIONE FINALE 4 
REM 4 DEI RISULTATI 4 
REM 4 OTTENUTI * 
REM 4 4 


REM 444444*444444444*44444444 
IF IM=W THEN FRI NT "VALORE DELLA 
PRIMA RADICE = CRVSI " R< 1 > : FRI 
NT “E RVOFF] 14 

IF I M=0 THEN PRINT "VAL ORE DELLA 
SECONDA RADICE » CRVS3 " , R2> ' P 
R I NT " [ RVOFF I " GOTO 3860 
PRINT "VALORE DELLA PRIMA RADICE 
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CRvsi " ; rc ì >r i +i 11 , ni : pr i 

NT" [RVOFF]" 

1840 PR I NT 11 VRLORE DELLR SECONDA RRBI 
CE = CRVS3";R<2 > J " -I MM P 

R I NT" [RVOFF ] 11 ■ GOTO 3860 

1 Rk0 rem 

1880 PRIMI "VALORE BELLA PRIMA RADICE 
= C RVS 3 r ' ; R < 3 ? : PR I NT " [ RV OFF 3 " 

1000 IF IM =0 THEN PRI NT ' 1 VRLORE D 
ELLR SECONDA RADICE = tRVS]";R< 
1 ? : PRIMI" [RVOFF]" 

1920 IF I H -0 THEN FRINÌ 11 VRLORE DELL 
fi TERZA RADICE = [RVS] 11 ;R< 2 ) = PR 
I NT " [ RVOFF ] " - GOTO 3860 

1948 PR INI 1 * VALORE BELLA SECONDA RADI 
CE - ERVS 3 ",Ra?;” + 1 H ; IM P 
RI NT" [RVOFF 3 " 

. I 960 PRIMI "VALORE BELLA TERZA RADICE 
= CRVS 3 ,i ;R< 2 >;" ™i 11 ; in : PR 
I NT " i RVOFF ] " ■ GOTO 3860 

1988 REM 

2000 IF in =0 THEN FRI NT "VALORE DELL 
A PR I MA RAD 1 CE = [ RVS] 14 ; R < 1 > : PR 
INI" [RVOFF]" 

2020 IF I M =0 THEN FRI NT "VALORE DELL 
A SECONDA RADICE = ERVS 3 1 ' ;R< 2 > : 
GOTO 2080 : FRINÌ " £ RVOFF ] " 

2848 PRIMI "VALORE BELLA PRIMA RADICE 

* CRVS 3 ,, JR< 1 >; " +1 tì ;IH:pRI 

NT" CRV 0 FF 3 " 

2060 PRIMI "VALORE BELLA SECONDA RADI 
CE s CRVS] ,, ;R< 2 >;" -I MH = F 
RINT" [RVOFF ] 11 

2880 IF I 1=0 THEN PRI NT "VALORE DELLR 
TERZA RADICE » LRVS 3 " ;R< 3 ) = FRI 
NT" C RVOFF]" 

2 im IF 11*0 THEN PRIMI "VALORE BELL 
fi QUARTA RAD I CE * E RVS 3 " , R < 4 > • P 
RIMI " [ RVOFF ] “ * CLR : GOTO 3368 

2120 PRI NT" VALORE DELLA TERZA RADICE 

* [RVS]";R< 3 >; " +1 ” 1 1 FRI 

NT" [RVOFF ] " 

2140 FRI NT" VALÓRE DELLA QUARTA RADIO 
E = CRVS 3 " ; R< 4 > J " -I MLPR 
I NT" [RVOFF j" 

2168 G 0 1 0 386 0 

2161 rem ** m*m*wt*m ******** mm 

2162 REM * # 

2163 REM * SALTI ALLE VARIE * 

2164 REM * ROUTINE * 

2165 REM * CHE CALCO- * 

2166 REM * LANO LE RADICI * 


216? rem 

2180 REM 

2288 FQR 1-0 IO N ~1 

2220 fì *: H , I ? ~A < H , I ? ,A ( N , N > 

2240 MENTI 

2260 ON H- IODIO 228U, 2328, 2360 

2288 GOSUB 3480 

2308 RETURN 

2320 GOSUB 2948 

2348 RETURN 

2350 rem mm**±**&*mmmmm*w* 

2351 REM * * 

2352 REM $ CALCOLO DELLA * 

2353 REM * EQUAZIONE DI * 

2354 REM * QUARTO GRADO * 

2355 REM * * 

2356 REM **i*********************** 
2360 fi- fi 4,3? : B- A (4,2 ? ■' C —A ( 4 , 1 ? ■ D= A ( 

4,0? 

2330 Q“B- f 3*.f»fi/S ? 

2400 R=C- ( h*B/ 2 ? + < A*A*fi/S ? 

2420 S = D “ ( A*C / 4 ? + C A * A * B/ 1 6 ? ■“ ( 3*A * A *A 
*R, 256 > 

2440 H \ 3 .* 2 ? =QN2 

2460 A<3, l?=ù3*G-4*S}/16 

2480 FK 3 , 8 > =- < R*R/64 ? 

500 IF R 08 ,> ijR ^ H 3 , 1 ) T'-'O ? THEN 2 
620 

2520 FK2, 1 ?=fi<3, 2? 

2540 A (2, 0?=fi<3L 1 ? 

2568 GOSUB 3488 
2580 R ( 3 j ~R 1 ? 

2 68 0 G 0 T 0 2 b 08 
2628 REM 
2640 SW=-1 
2660 GOSUB 2940 
2688 K-3QR(R<3> ? 

2700 IF K=0 THEN R"SQR(Q*Q-4*S> ' GOTO 
2760 

2720 0 ~ Q + 1 4* R '■ 2 ? > 

2740 R“R/(2*fO 

2760 L= ( Q“R > / 2 ■ M= < Q+R ) /2 

2788 A 1 2,1 > — 2 *K 

2808 FK2,0?”L 

2320 GOSUB 3580 

2348 R < 3 > “R ( 1 ? - < A < 4 , 3 > /4 ? - R f 4 ? -R 2> - 
( A ( 4 , 3 > /4 ) : 1 1 = I M 
2868 A < 2 , 1 ) *-2 *K ; H ( 2 , 0 > == fi 
2880 GOSUB 3588 

2980 R < 2 > ”P v 2 > - <. R < 4 , 3 ? /4 ? • R < 1 ? -R 1 > - 
<fì<4 , 3?/4> 

2920 RETURN 
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REM 

rem **** 

rem *. # 

REM * CALCOLO DELLE * 

REM * RADICI * 

REM * DELLE EQUAZIONI * 

REM * DI TERZO GRADO * 

REM * * 

R EM * ■■¥ * * ******* ** * Hi ** ** *• * **** 
IF M L F: 0 : I' THEN HC=0: GOTO 3360 
AM- AB3< A < 3 , 8 > ) 

FOR 1=1 T 0 3 
TT-fìE3 f 'R<3.' I ) j 
IF < FtMcTT '> THEN AM-TT 
NEXTI 

IF R'I3,0»0 THEN fì=-AM~l ■ E=O ÙO 

Tu 3123 
A=0 : B=AM+1 

BEF FMFO;>»X*X*X+FK3, 2>*X*X+FK3 
, 1>*X+AO3,0; 

Xfì=A : XB=B 

Vl=FNFvfl> : Y2=FNF <B> 

ER=1E~6 

IF V 1 = 0 THEN XC--H ■ OIDIO 3360 
IF V2=0 THEN XC=B GOTO 3360 
XC-CXH+XBV2 
TE=FMF<XC> 

IF TE=0 THEN GOTO 3368 
IF ■ -XR> £R THEN GOTO 3360 
IF CFNFO:flm£>>0 THEN XA=XC-GO 
TO 3240 

;:b=hc goto 3240 

RC3>=XC 

IF SL4--1 THEN RETURN 

R<2,1;'=A(3,2>+HC 

R<2, 0>=H ■: 3 , 1 > +A < .3 , 2 > +XC+XC *X C 

GOSUB 3430 

RETURN 

REM 

rem ; ************************* 


Q2=SQP‘-W)X2 

REM ♦#******#*#***##♦***«?■**** 


REM * CALCOLI PER LA 

REM * EVENTUALE PARTE * 

REM * IMMAGINARIA * 

REM * * 

rem M***m#*m*mm**m*m** 

IM=Q2 

R<1>=Q1 : R< 2 ) =*G 1 

RETURN 

REM 

R i. 1 >®Q< 1 > ‘ R ( 2 > =C'< 1 > ■ 

I M=0 

RETURN 

REM 

Q2=SQR<W>/2 

IM=0 

R<1 )®Q1+G2 
RC2>=Q1~Q2 
RETURN 

rem ************************** 

REM * * 

REM * FINE PRO EQUAZIONI * 
REM * * 

REM 
rem 

REM * * 

REM * ‘CALCOLO SIATE- * 

REM * MI LINEARI * 

REM * * 

REM ************#*#*♦#**##»!#* 
F'R I NT " I HOME 3 [1 8 DOWN] C 4 PI GHT I P 
REMERE UN TASTO PER CONTINUARE" 
GEI RVf IF RV4'-“" " THEN 3880 
RUM 

POKE 53280 , & ■ F'OKE 53281,6: PR I NT 
” I BIANCO! " : T=I 

PRIMI" CCLEAR] SISTEMI R TRE IH 
COGNITE X; V : Z" , " [CELESTE] " 

PR I NT" C DOWN 31“ EQUAZIONE IN ESA 
ME A [ NERO ]XC CELESTE 3+Bt NERO 3 
V I CELESTE 1 +C [ NERO IZI CELESTE] =D " 
PR I NT " [ BONN 32" EQUAZIONE IN ESA 
ME A 1 [ NERO ] X t CELESTE ] +B 1 L NER 
0 J VTCELESTE 3+C 1 [ NERO 32 [ CELESTE 3 
=D1" 

PRINT" LDOWN33* EQUAZIONE IN ESA 
ME R2 [ NERO 3 X t CELESTE 3 +B2 [ NER 
0 3 V [ CELESTE 1 +C2 [ NERO ] Z l CELESTE ] 
=B2 " 

PRINT" LDOWNIFORN ITE I PARAMETRI 


*******#**************.*** 


CALCOLO DELLE 
RADICI DELLE 

EQUAZIONI DI 
SECANDO GRADO 


rem *************** ***** ***** 

M=A ■: 2 , 1 > * A < 2 , 1 > -4* A < 2 , 0 > 
Ql=-H<2, 1 >/2 

OH < SCN < W > +2 > GOTO 3560,3660,37 

40 

REM 
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4021 

4022 

4023 

4024 

4025 

4026 
4Ù2? 
4023 
4040 


4060 


4030 

4100 

4120 


4140 


4160 

4180 


4200 

4220 


4240 

4241 

4242 

4243 

4244 
4260 

4230 

4360 

4320 


4340 


4360 

4370 

4380 

4381 
4332 
4334 


RICHIESTI ** 

rem 

rem * $ 

REM * VIENE UTILIZZATO * 

REM * PER IL CALCOLO * 

REM * IL METODO DI * 

RE ri * DI CRAMER * 

REM * * 

rem 

INPUT " [DONNI <A,3B>G,D> %A,;B, 

C,D 

INPUT "IDONN] j CI /Dl> M i 

Al, El, Gl, DI 

INPUT "C BONN 3 < A2, B2, CZ% D2> M ; 

h2 ,B2,C2,B2 

POR pj>l TO 5000 NEXT 

PR I NT " [ CLERR ] [ DOWN 1 USI STEN 

A 

PRIMI" [DOWN] / ";fi: " [LEFT] [NERO! 

l CELESTE I +CB; "[ LEFT 3 f NERO ] V E 
CELESTE] + “;C; " [LEFT] [ NERO I2CCE 
LESTE] = 

primi 1 ' r 

PRIMI 11 H 11 ; Al; " CLETI] [NERO ] K C GEL 
ESIBÌ + '■ ; B1 ; ri CLEFT1 [NERO] VE CELE 
8TE3 + ,i ,Cl : 11 CLETI ] [NERO ] Z C CELES 
TEI « H ;D1 
PRIMI” P 

PR I NT ,r ' 11 ; A2 ; " [ LEFT H NERO ] X [ GEL 
TSTEJ + " B2 ■ 11 CLETI] [NERO] VC CELE 
STEJ +"iC2 ; " CLETI j CNER03ZCCELES 
TE] =";D2 

rem xm+mw+±**m*±**mM*** 

REM £ $ 

REM * CALCOLO DI DELTA X + 
REM $ £ 

Rem 

E=<fl*Bl#C2> F~ < B *C 1 * R2 > • G* < C*R 1 
*B2> H*<ft2*Bl#C> I = «2#Cl*ft> 
L=<C2*fll*B> M=E+F+8-H-I-L 
REM CALCOLO DI DELTA X <N> 

! *C2> ■ F 1=< B*C 1 *D2 > : G 1 = < C 
1*B2 > M l < D2^B 1 A C > 

I 1 =< K:*e 1 #H > ■ L 1 ™ < C2*D 1 *B > • N-E 1 + 
F1+G1-H1-I1-L1 

rem 

REM * * 

REM * CALCOLO DI DELTA V * 
REM * * 

REM 

E2=<R*B1*C2> : F2=CD#CÌ*A2'> ' 02=KC 

*Al«i2> •H2=CA2*D1*C> 


4400 1 2= < B2#C 1 *Fl > : L2» * C2*H 1 >D > 0=E2+ 
F 2 ■+■ G 2 ' ■ - H 2 j - 1 2 - L 2 

442y REM *|EaM 44 

4421 REM $ * 

4422 REM * CALCOLO DI DELTA 7 ‘ 

4423 REM * f; 

4424 REM 

4440 E3»<fi#Bl*D2> -FI- 1 £*T!ì*h2> US- ■ ‘ D 

4460 1 3=< E2*D 1*P > ' L3^ B2#A 1*10 • P*£3+ 
F3+G3-K3-I3-L3 

4480 REM CALCOLO INCOGNITE X,V,2 

4500 rf M=0 IH EH PR I NT fl C CLERR] l RVC 1 
C? DOWN] C4 RIGHI] IL SISTEMA NON 
AMMETTE SOLUZ I OH I C RVGFF I " GOTO 
10000 


4520 

0=N/M X=(0 > 


454u 

R=0/M ■ V-<R> 


4560 

S=P/frZ«CS> 


4530 

PRIMI" C2 DONNI HA SOLA 

TIGNI " 

4600 

PR I HT " C DOWN 3 CNERCOXC 

CELESTE] 


='*;X 


4620 

PR INI" C DOWN! [NERO] VC 

-H l i I I 

CELESTE] 

4640 

™ * y 

PR INI" C DOWN 3 CNER01ZE 

« w ' 7 

CELESTE] 

4660 

“™ * B im. 

GOTO 3860 


4670 

rem 

4680 

REM * 

f 

4690 

REM * ROUTINE DI I 

MPUT * 

4691 

REM * CONTROLLfiT 

0 * 

4692 

REM * 

* 

4693 

REM *~**^*$* * + * * *** * 

4633 

I m - " " : ZT^T I ZC=2 : RH=0 


4700 

GET Z* IF Z*O mi ' THEN 

4 760 

4720 

IF 2T<*TJ THEN PRIHTNID 

t < " , z 


C ■ 1 > ; " C LEFT] " : ZC~3“IC : 

ZT^TI+1 5 

4740 

GOTO 4700 


4769 

Z~RSO:Zr> 


4780 

IF Z= 1 3 THEN 4900 


43A0 

IF 2-45 AHI 1 IM$=" 11 THE 

H 4Q9L* 

4820 

IF Z-46 AND PHOl THEN 

4860 

4840 

IF ZC43 OR 2>57 THEN 47 

00 

4360 

IF 2-46 THEN RH-Ì 


4380 

IF "&' 1 T 

HEN PR I N 


JZ$ ■ 


4900 

IF Z“13 OR 3 - 

HFU 


MIM< INI i ? ■ pPIN” H CBZP ' 

3 ICFLES 


TEP RETURN 


4920 

GOTO 4780 


1 0000 

POR UT»! TO 3390 -^E: -UT 
60 

nn T n 30 
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IL MERGE E L’APPEND 


Le Routine in L M. per tutti ì tipi di Commodore 

di Giancarlo de Cobelli 



Dopo aver presentato sul numero 
scorso una routine in LM, che permet- 
teva di creare i 'autostart ad un qualsia- 
si programma tramile leader vlpropon- 
go su questo numero altre due routine 
dì LM. molto utili che non sono presemi 
nel BASIC dei Commodore: il MERGE 
e l'APPEND. 

le routines in questione permettono 
di fondere od aggiungere un program- 
ma che è residente su disco ad un pro- 
gramma precedentemente caricalo nel- 
la memoria RAM del computer. 

l’utilizzo di queste routine è utile poi- 
ché i programmi che si realizzano ven- 
gono di solito creati non in una volta so- 


la, ma costruendo tante subroutines a 
se stanti che vengono appunto fuse o 
collegate insieme. 

Per comodità, le locazioni di memo- 
ria delle routines sono riferite al Com- 
modore 64- per i riferimenti agli altri tipi 
confrontare I disassemblati riportati nel- 
le relative figure. 


MERGE 

Questa prima routine elimina tutte 
quelle preoccupazioni da cui i program- 
matori sono assillati quando devono ca 


ricare un programma da disco da colle- 
gare o meglio fondere, con un program- 
ma residente in memoria. Per realizza- 
re questo bisogna utilizzare alcune su- 
broutine che sono presemi all' interno 
della ROM BASIC 
Queste routine collegate insieme per- 
mettono dì scrivere una riga di program- 
ma letta da qualsiasi periferica ed inse- 
rirla al giusta posto nef programma in 
memoria secondo il numero di riga. La 
subroutine è locata all'indirizzo di me- 
moria SA49C; le prime tre istruzioni non 
ci interessano poiché abbiamo già in 
memoria la linea da inserire (vedremo 
dopo come) e quindi il programma sal- 
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fi49C 

20 

6B 

R9 

JSR 

*R96B 

R527 

88 


DEV 


R49F 

20 

79 

R5 

JSR 

*fi579 

R528 

10 

FS 

BPL 

*8522 

R482 

84 

8B 


STV 

$0B 

R52R 

20 

59 

R6 JSR 

*8659 

R4R4 

20 

13 

R6 

JSR 

*8613 

R52D 

20 

33 

85 JSR 

*8533 

H4fi? 

90 

44 


BCC 

$H4ED 

R530 

4C 

30 

A4 JMP 

*8480 







R613 

R5 

2B 

LDR 

*2B 

R4E H 

20 

59 

Ré 

JSR 

*R659 

R615 

R6 

2C 

LDX 

*2C 

R4F0 

20 

33 

R5 

JSR 

*8533 

R6 17 

R0 

01 

LDV 

#*01 

H4F3 

RH 

00 

02 

LOfl 

*0200 

R619 

85 

5F 

STR 

*5F 

84F6 

F0 

38 


BEQ 

*R4S0 

R61B 

36 

60 

STX 

*60 

R4F8 

18 



CLC 


H61D 

B1 

5F 

LDR 

(*5F ) , V 

R4F9 

R5 

20 


LDR 

*2D 

R61F 

F0 

1F 

BEQ 

*8640 

R4FB 

85 

5R 


STA 

*5R 

R621 

C8 


IHV 


R4FB 

65 

0B 


RDC 

*0B 

R622 

C8 


IHV 


R4FF 

85 

58 


STR 

*58 

R623 

R5 

15 

LDR 

*15 

8501 

84 

2E 


LDV 

*2E 

H625 

DI 

5F 

CMP 

< *5F ') j V 

RS03 

84 

5B 


STV 

*5B 

R627 

98 

18 

BCC 

*R64 1 

8505 

90 

01 


BCC 

*R508 

R629 

F0 

03 

BEQ 

*R62E 

8507 

88 



IHV 


R62B 

88 


DEV 


R50S 

84 

59 


STV 

*59 

R62C 

nè 

09 

BHE 

*8637 

R50R 

20 

B8 

R3 

JSR 

*R3B8 

R62E 

85 

14 

LDR 

*14 

R5@D 

R5 

14 


LDR 

*14 

R63W 

38 


DEV 


R50F 

R4 

15 


LDV 

*15 

R631 

DI 

5F 

CMP 

($5F> , V 

R511 

80 

FE 

01 

STh 

*01 FE 

fi 6 33 

90 

0C 

BCC 

*R64 1 

R514 

8C 

FF 

01 

STV 

*01FF 

R635 

F0 

08 

BEO 

*R641 

R517 

R5 

31 


LDR 

*31 

8637 

88 


DEV 


8519 

R4 

32 


LDV 

*32 

8638 

£1 

5F 

LDR 

<*5F) > V 

R51B 

85 

20 


STR 

*20 

R63R 

88 


TflX 


ASID 

84 

2E 


STV 

*2 E 

863É 

88 


DEV 


R51F 

R4 

0B 


LDV 

*0B 

R63C 

B1 

5F 

LDH 

<*5F>, V 

R521 

88 



DEV 


h63E 

B0 

D7 

BC3 

*8617 

fi 522 

B9 

FC 

01 

LDR 

*0 1 FC / V 

8640 

18 


CLC 


fiS25 

91 

5F 


STR 

C*5F>j V 

8641 

60 


RTS 



Figura 1: routinari 1 


ta ad $A4A4 dove ricerca se il numero 
di linea esiste già. 

Questo compito è svolto dalla routi- 
ne locata a $A613 che legge in pagina 
zero il contenuto dei registri $14 e $15 
che contengono il numero di linea cor- 
rente e li confronta con i numeri di linea 
già in memoria. Poi ritorna alla routine 
principale e salta alla locazione SA4ED 
dove risiede fa routine per l'inserimen- 
to di una lìnea BASIC 

Se il numero dì linea del programma 
originale dovesse esìstere già, allora il 
contenuto dì questa linea viene cancel- 
lato e quindi viene riscrìtto con il conte- 


nuto della linea del programma su di- 
sco. 

Finito l'inserimento ritorna al BASIC 
e legge le locazioni $0302 e $0303 che 
contengono il puntatore di inìzio pro- 
gramma (warm start). La routine appo 
na descritta è visibile, disassemblata e 
commentata, nella prima figura, mentre 
la routine di MERGE è riportata In figu- 
ra 2, 

La pnma istruzione si trova in SCFQ8 
(#53000) ed è un salto alla subroutìne 
locata a $E1D4; questa assume il no- 
me del file ed i parametri di caricamen- 
to (file logico, device, indirizzo seconda- 


rio). 

Le istruzioni da $CFGB a $CF1 3 con- 
trollano se il file logico è diverso da uno 
per impedire il caricamento da registra- 
tore (LDA $BA e GMP # $01); nel caso 
sia uguale manda un messaggio di er- 
rore (JMP $A437). 

Il salto a $AB1 E permette di stampa- 
re il messaggio che inizia alfa locazio- 
ne di memoria contenuta nei registri A 
e Y (in questo caso SCFCB); il messag- 
gio contiene la scrìtta MERGlNG II sal- 
to successivo a SF5G1 stampa di segui- 
to al messaggio prima visto il nome del 
programma da caricare. In seguito vie- 
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ne controllato che non ci siano file aper- 
ti v per fare ciò viene eseguito il salto al- 
la subroutine che inizia a SCFB3; nel ca- 
so siano aperti chiude tutti i file e ritor 
na a $CF25. 

Memorizza in $B8 e $GFCA il nume- 
ro del file logico corrente ed in $B9 lin- 
di rizzo secondario, del nostro caso $00. 
Salto alla subroutine $FFCQ che apre un 
file logico a seconda dei parametri che 
gli sono stati passati. 

Carica in X il contenuto SCFCA e sal- 
ta a $FFC6 del KERNAL che apre il ea 
naie di input specificato nel registro X. 

Adesso occorre modificare te locazio- 
ni dì memoria S032C e $0320 per evi- 
tare la chiusura del file logico; questo 
valore di solito contiene SF32F che chiu- 
de tutti i lite aperti; per evitare questo 
si modifica il contenuto facendolo pun- 
tare a SCFB2 che contiene un RTS (ri- 
torno da sub routine). Poi si modificano 
le locazioni che contengono il vettore di 
warm start per permettere alla routine 



che punta a $A4A4 t una volta tornata al 
BASIC, di sapere a quale indirizzo, de- 
ve andare per riprendere lo svolgimen- 
to del programma. Così le locazioni 
$0302 e $0303 conteranno il valore 
$CF8F. 

In $CF8F c'è una istruzione JMP 
$GF5t che riporta ii controllo del pro- 
gramma alla routine che eprmelte l'in- 
serimento delle linee lette dal file logi- 
co aperto. Le istruzioni da $CF5i a 
SCF8C leggono i caratteri da disco (JRS 
SFFCF). li memorizzano in $14 e $15 
(numero riga} e nel buffer di input da 
$0200 (caratteri che formano la linea) 
per poi scriverli in memoria tramite l'i- 
struzione JMP SA4A4 vista prima. 

Sono di due tipi i controlli inseriti per 
vedere quando il programma è finito: il 
primo controlla se i due caratteri letti so- 
no uguali a $00, il secondo se lo status 
($90} è diverso a $00. 

Se una delie condizioni ò verificata 
salto a $CF92. Da $CF92 riportiamo a 


1000 

FFFF 





1010 

FFFF 





* 




1020 

FFFF 


MERGE 

PER 

COMMODORE 

* 




1030 

FFFF 





* 




1040 

FFFF 


I VALORI 

IN 

ESRDECIMRLE 

* 




1050 

FFFF 





* 




1060 

FFFF 


SONO RIFERITI HL C64 

* 




1070 

FFFF 





* 




I0y0 

FFFF 





1030 

FFFF 





$ 




1100 

FFFF 


FRED I SPONE RL CRR I CRUENTO 

* 




1110 

FFFF 





* 




1120 

FFFF 

;* 

DEL NUOVO 

PROGRRMMR 

* 




1130 

FFFF 





* 




1140 

FFFF 





1150 

CF08 

20 

D4 E1 

JSR 

SLPRRR 

i PER 

C64 

E VIC20 = E1D4 


1160 

CF0E 

R5 

Bfi 

LDm 

FA 

;per 

C64 

E VI 020 = Bfl 


1170 

CF0D 

C9 

01 

CMP 

#*01 





1130 

CF0F 

D8 

05 

BNE 

*CF16 





113© 

CFÌ1 

R2 

09 

LDX 

#*09 





1200 

CF 1 3 

4C 

37 R4 

JSR 

ERROR 

;PER 

C64 

= R437. VIC20 = 

C437 

1210 

CF16 

R9 

CE 

LDH 

#*CB 





1220 

CF 1 S 

R0 

CF 

LDV 

#*CF 





1230 

CF1R 

20 

ÌE RE 

JSR 

STROUT 

;RER 

C64 

= RB1E> VIC20 = 

CB1F 

1240 

CF1D 

20 

CI F5 

JSR 

*F5C1 

; STAMPA HOME FILE 


1250 

CF20 

R9 

8E 

LDfi 

#*0E 





1269 

CF22 

20 

E3 CF 

JSR 

*CFE3 





1270 

CF25 

85 

8E 

STA 

LR 

;PER 

C64 

E VIC20 = BS 


1280 

CF27 

SD 

Cfì CF 

STA 

*CFCfi 





1230 

CF2R 

89 

00 

LDR 

#*00 





1300 

CF2C 

85 

B9 

STA 

Sfl 

;PER 

C64 

E VIC20 = B3 



Commodore -4 1 



13U3 

CF2E 

20 

ce 

FF 

JSR 

$FFC0 

; APRE UN FILE LOGICO 


1320 

CF31 

RE 

CA 

0F 

LUX 

$CFCfl 




1 330 

CF34 

29 

08 

FF 

JSR 

$FFC6 

APERTURA CANALE INPUT 


1348 

CF37 

h9 

B2 


LDA 

#$B2 




1350 

CF39 

3D 

2C 

03 

STA 

ICLfiLL<LB) 

7 PER 064 E 

VI 020 = 0320 


1360 

CF3C 

R9 

CF 


LBfì 

#$CF 




1 3?0 

CF3E 

3D 

2D 

03 

STA 

ICLfiLLCHE;- 

iPER 064 E 

VI 020 = 032B 


1380 

CF41 

ffl 

8F 


LDA 

#$8F 




1390 

CF43 

8D 

02 

03 

STA 

IMflINCLB) 

PER 064 E 

VI 020 = 0302 


1406 

CF4b 

h5 

CF 


LDA 

#$CF 




1410 

CF43 

sD 

03 

03 

STA 

I MA I N 1 HE > 

;PER 064 E 

■ V I C 20 = 0303 


1420 

FFFF 




1438 

FFFF 

;* 





* 



1440 

FFFF 

;* 


LETTURA Tifi DISCO E 

* 



1450 

FFFF 

;# 





è 



1460 

FFFF 

;# 

INSERÌ ME 

MIO LINER BASIC 

* 



1479 

FFFF 

;# 





* 



1480 

FFFF 




1 490 

CF4B 

20 

CF 

FF 

JSR 

$F FCF 

; PRENDE UN 

CARATTERE UAL 

DEVI CE 

1500 

CF4E 

20 

CF 

FF 

JSR 

$FFCF 

; PRENDE UN 

CARATTERE DAL 

DEVI CE 

1510 

CF51 

20 

CF 

FF . 

JSR 

$FFCF 

; PRENDE UN 

CARATTERE DAL 

DEVI CE 

1528 

CF54 

85 

14 


STA 

LINNUJKLB) 

;PER C64 E 

VI 020 = 14 


1530 

CF56 

20 

CF 

FF 

JSR 

$FFCF 

; PRENDE UN 

CARATTERE DAL 

DEVI CE 

154Ù 

CF53 

85 

15 


STA 

L INNUMERE) 

;PER 064 E 

V 1 020 = 15 


1550 

CF5E 

05 

14 


0RA 

LINNUMCLB) 




1560 

CF5D 

F0 

33 


BEQ 

$CF92 




1570 

CF5F 

R5 

99 


LD A 

STATUS 

t PER 064 E 

VIC29 = 90 


1580 

CF61 

£)0 

2F 


BNE 

$CF92 




1 590 

CF63 

20 

CF 

FF 

JSR 

SFFCF 

; PRENDE UH 

CARATTERE DAL 

DEVI CE 

1600 

CF66 

85 

14 


STA 

LINNUM<LB> 




1610 

CF63 

20 

CF 

FF 

JSR 

ÌFFCF 

; PRENDE UN 

CARATTERE DAL 

DEVI CE 

1620 

CF6B 

85 

15 


STA 

LINHUMvHE) 




1680 

CF6D 

R0 

00 


LBV 

#$00 




1640 

CF6F 

20 

CF 

FF 

JSR 

$FFCF 

; PRENDE UN 

CARATTERE DAL 

DEVI CE 

1650 

CF72 

99 

00 

02 

STA 

EUFj Y 

; PER C64 E 

VIC20 = 200 


1660 

CF75 

R6 

05 


LBX 

LSTX 

; PER 064 E 

VIC20 = C5 


1670 

CF7? 

E0 

3F 


CPX 

#$3F 




1 680 

CF79 

F0 

17 


BEQ 

$CF92 




1698 

CF7B 

C3 



INY 





1708 

CF7C 

09 

00 


CMP 

#$00 




1710 

CF7E 

D0 

EF 


BNE 

$CF6F 




1720 

CF30 

98 



TVA 





1730 

CF81 

18 



CLC 





1740 

CF82 

FI 9 

04 


ABC 

#$04 




1750 

CF84 

85 

0B 


STA 

COLI NT 

; PER 064 E 

VIC20 = 0E 


1760 

CF8G 

R5 

90 


LBA 

STATUS 




1770 

CF88 

D0 

03 


BNE 

$CF92 




1780 

CFBfi 

R4 

0B 


LBV 

COUNT 




1790 

CFSC 

40 

R4 

R4 

JMP 

INSLIN 

, PERC64 “ A4A4. VIC2S = C4A4 

1806 

CF8F 

40 

51 

CF 

JMP 

$CF51 




1810 

FFFF 




1820 

FFFF 

j* 





* 
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1330 

FFFF 

;* 

RE3T0RE VALORI A BEFRULT 

* 



1 840 

FFFF 




* 



1850 

FFFF 

;■* 

E CHIUSURA CANALI I/O 

* 



I960 

FFFF 

; # 



* 



1870 

FFFF 




1080 

CF32 

A9 

33 

LBA LBYTE 

; PER 

C64 

=$83, VIC20 = #131 

1890 

CF34 

8B 

02 03 

STA IMAHKLBj 




1900 

CF97 

R9 

A4 

LBA HEVTE 

; PER 

C64 

=$84, VIC20 =#196 

1918 

CF99 

8B 

03 03 

STA I MA I M < HE > 




1920 

CF3C 

R3 

2F 

LBA LBYTE 

PER 

C64 

=$2F, VIC20 =#239 

1938 

CF9E 

8B 

2C 03 

STA ICLRLLCLBÌ 




1940 

CFfil 

A3 

F3 

LBA HBVTE 

; PER 

C64 

=$F3> VIC20 =#243 

1958 

CFA3 

8D 

2B 03 

STA ICLALL'JHB) 




I960 

CFR6 

RB 

CA CF 

LBA $CFCft 




1979 

CFR9 

20 

C3 FF 

JSR ÌFFC3 

; CHIUDE 

IL FILE LOGICO 

1988 

CFRC 

20 

CC FF 

JSR $FFCC 

; CHIUDE 

I CANALI I/O 

1990 

CFHF 

4C 

74 A4 

JMP READY 

; per 

US4 

= A474, VIC 20 = C4 

2000 

CFB2 

60 


RTS 




20 1 0 

FFFF 




2020 

FFFF 

;* 



* 



2030 

FFFF 

;# 

ROUTINE BI CONTROLLO 

* 



2048 

FFFF 

i* 



* 



2050 

FFFF 

;* 


FILE APERTI 

# 



2068 

FFFF 

;* 



$ 



2070 

FFFF 




2080 

CFB3 

R6 

33 

LUX LF'THB 

; PER 

€64 

E VIC20 = 98 

2030 

CFB5 

E8 

00 

CPX #100 




2100 

CFB7 

F0 

10 

BEO $CFC9 




2110 

CFB3 

DB 

58 02 

CMP BUF, Y. 

;per 

C64 

E VIC20 = 253 

2 1 M 

CFEC 

D0 

06 

BUE $CFC4 




2130 

CFBE 

38 


SEC 




2140 

CFBF 

E9 

01 

SBC #$01 




2150 

CFC1 

4C 

B3 CF 

JMP $CFB3 




2160 

CFC4 

Cfl 


BEX 




2170 

CFC5 

FÙ 

02 

SEQ TCFC3 




2188 

CFC7 

D0 

F@ 

BNE $CFB3 




2190 

CFC 9 

60 


RTS 




2200 

CFCA 

00 


BRK 




2210 

FFFF 

; i ^**+4:***#.*+**#*#***********+#** 



2220 

FFFF 

, * 



$ 



2238 

FFFF 

i* 

STAMPA MESSAGGIO 

* 



2248 

FFFF 

i# 



* 



2258 

FFFF 

, ********** mmmmmmmmmm. 



2260 

CFCB 

4B 

45 52 

E OR $5245 




2270 

CFCE 

47 


BYT $47 




2280 

CFCF 

43 

4E 

EOR #$4E 




2290 

CFB1 

r 


BYT $47 




2300 

CFB2 

20 

00 80 

JSR $0000 




2310 

CFB5 

00 


BRK 





2326 


Figura 2: routiie di fcnef^ccmrieiritata 
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valori di default le locazioni $0302, 
$0303 {warm Start) e $032C. $0320 
{chiusura file logico). Salto alle subrou- 
tlnes del KERNAL $FFC3 che chiude il 
file logico. SFFOC che chiude i canali 
di input ed output. Infine salto a $A474 
Che stampa READY, 

Il listato BASIC ìn figura 3 (per Com- 
modore 64) contiene i DATA sotto for- 
ma esadecimale per facilitarne la digi- 
tazione ed evitare così possibili sbagli. 
La routine di conversione da esadeci- 
male in decimate è da riga 128 a riga 
130. 

Per fare il merge tra due programmi 
caricare la routine proposta e dare il 
RUN; dopodiché caricare il programma 
più grosso come numero di blocchi e 
poi, per fare il MERO E con il program- 


ma su disco, digitare: 

SYS (53000} 'nome prg*', 8 


APPEND 


Per capire il principio su cui si basa 
questa routine bisogna analizzare come 
è costruita una linea BASIC e cosa av- 
viene prima e dopo il caricamento di un 
programma. 

Una linea BASIC è composta da cin- 
que parti fondamentali. La prima com- 
prende due byte nei quali si trova >1 pun- 
tatore di inizio linea, poi ci sono altri due 
byte che contengono il numero di linea, 
il testo BASIC della linea, un byte che 


contiene uno zero che indica la fine del- 
la linea ed Infine gli ultimi due byte che 
contengono il puntatore alla prossima 
linea. L'ultima linea conterrà negli ulti' 
mi due byte il valore zero per indicare 
che il programma è finito. 

Quando si accende II computer o si 
da un comando di NEW tutti i valori con- 
tenuti nelle locazioni di memoria da 
$002 B a $0032 contengono lo stesso 
valore e più precisamente $0801. Il si- 
gnificalo di queste locazioni si può ve- 
dere in figura 4. Alf atto del caricamen- 
to la routine del sistema operativo con- 
trolla il valore dell'Indirizzo secondario; 
se llndirizzo secondario non è presen- 
te il programma viene caricalo a parti- 
re d airi ni zìo BASIC che corrisponde a 
$0801 (#2049) altrimenti se l'Indirizzo 


100 rem ************************** 

101 REM * * 

102 REM * MERGE * 

103 REM * * 

104 REM *********** *************** 

105 REM * * 

106 REM * FIUTHOR SOFTWARE * 

107 REM * * 

10& REM * GIANCARLO DE COBELL I * 
103 REM * * 

110 REM ************************** 

111 REM * * 

112 REM * VIC 20 + EXP . SI * 

113 REM * COMMODORE 64 SI * 

114 REM * COMMODORE 4000 HO * 

115 REM * COMMODORE 8000 NO * 

116 REM * COMMODORE 16 NO * 

117 REM * COMMODORE PLUS 4 NO * 

118 REM * * 

119 REM ************************** 

120 ^ 

121 FOR K*5300@ TO 53205 -READ A* 

122 : 

123 REM ************************** 

124 REM * CONVERSIONE HEX TO DEC * 

125 REM ************************** 

126 X=ASC(LEFT$(RÌ. l)>-48 : IF X>9 T 
HEN X— 

127 V=ASCCF:IGHTÌ<flf, IF Y>9 

THEH V=¥-7 


130 PR I NT ” C DOWN 3 D I Gl TARE SVS53000 " 
CHR$ < 34 ) " NOME PRO "CHR* < 34 > " . DE 

V. ” 

131 PR I NT " t DOWN] PER FARE IL MERGE. 

M 

132 NEW END 

133 = 

134 DATA 20.D4.E1.A5.BA.C9.01.H0 

135 DATA 05.A2/09/ 4C/3?/ A4, A9,CB 

136 DATA A0,CF,20,1E,HB,20,C1,F5 

137 DATA fi9.0E.20.B3.CF.85.B8.8P 

138 DATA CA,CF,A9,0Q,85,B9,20,C0 

1 39 DATA FF , AE , CA . CF , 20 . C6 , FF . A9 
1 49 DATA B2. 8D , 2C . 03/ A9 , CF . 3D . 2D 

141 DATA 03/H9/8F/8D/02/03..R9/CF 

142 DATA 8D/03/03/20/CF/FF.20/CF 

143 DATA F F , 20 , CF . FF , 35.14 .. 20 , CF 

144 DATA FF . 85/ 15. 05/ 14 . FO.. 33. R5 

1 45 DATA 99 / D0/ 2F .. 26 CF . FF , 35 . 1 4 

1 46 DATA 20 . CF / FF , 35 . 15. HO . 0@ , 20 

147 DATA CF. FF. 99. 00/02. A6.C5.E0 

148 DATA 3F.F0.17.C3.C9.80.D0.EF 

1 49 DATA 98 .18, 69 . 04 . 35 . 0E . A5 , 90 

1 50 DATA D0. 88/ A4 .. 8B, 4C . A4 , A4 , 4C 

151 DATA 51/ CF ■ A9 . 83 . 8D . 02 ,03/ R9 

1 52 DATA A4 . 8B . 03 . 03 . A3 . 2F . 8D . 2C 

153 DATA 03 / A9 .■ F3 . t : B / 2D / 03 .* A D / CA 

154 DATA CF 20 / C3 / FF . 28 , CC . FF , 4C 

1 55 DATA 74 . A4 . 60 RÉ . 93 . E8 . 08 / FO 

156 DATA 10/ DD, 53/ 02. PS. 06 . 38 - E9 

157 DATA 01 ■ 4C/ E3, CF. CA FO. 82/ D0 

158 DATA F0. 68/ 00. 45,45/ 52/ 47. 49 

159 DATA 4E/ 47/20/86/ 80. 0O 


128 fl=X# 1 6+V : POKE K. A : NEXT 

129 ■ 


Figura 3: i DATA in fonila esadecimale a programma BASIC sanmirato 
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secondaria corrisponde ad uno viene 
letto nei primi due byte del programma 
su disco l'Indirizzo dì caricamento, poi- 
che tutte le volte che si salva un pro- 
gramma, i primi due byte sono riservati 
all'indirizzo di partenza del programma 
(ecco perché nei programmi scritti in lin- 
guaggio macchina viene richiesto (In- 
dirizzo secondario}. 

Finito i I caricamento, nelle locazioni 
$002 D e $0Q2E si avrà l'Indirizzo di ti- 
no testo BASIC o inizio variabili poiché 
le variabili sono in coda al programma 
caricato, 

Ora, utilizzando tutte queste informa- 
zioni è facile dedurre come reali zare un 
ARRENO, cioè aggiungere in coda al 
programma memorizzato un program- 
ma letto da disco. Riferendoci alta figu- 
ra 5 dove c'è il disassemblalo, te prime 
due istruzioni servono per impostare il 
computer in caricamento (la locazione 
$0A deve contenere $00 per il LOAD o 
$01 per it VER1FY); salto alla routine già 
analizzata prima (JSR $E1 04} che pre- 
dispone i parametri di collegamento con 
la periferica. 

Le istruzioni da $CF1 1 a SCF14 ser* 
vono per memorizzare nei registri A, X, 
Y i parametri richiesti dalla subroutine 
del KERNAL $FFD5 già analizzata nel- 
lo scorso numero (carica un program- 
ma da periferica). In A mettiamo il valo- 
re $00 per il LOAD ($01 per il VERIFY) 
con l'istruzione LDA $0A. In X e Y biso- 
gna memorizzare i valori da dove deve 
iniziare a memorizzare il programma 
che viene letto da disco; poiché bisogna 
attaccarlo m coda in X e Y verrà memo- 
rizzato il contenuto delle locazioni 
$0020 e $002E. In $002D c'è il byte 
basso della locazione di partenza del 
nuovo programma e quindi dovremo de- 
cremen tarlo di due (SBC #$02) perché 
abbiamo visto che il programma in me- 
moria alla fine viene chiuso con due zeri 
che si dovranno togliere per inserire il 
nuovo puntatore alta prossima linea del 
programma che verrà aggiunto. 

La subroutine $A533 serve per linka- 
re (legare) tutto il programma che vie- 
ne aggiunto (aggiornamento dei punta- 
tori alle righe successive). Da $CF22 e 


$CF39, il programma testa tutti i punta- 
tori che rimandano alla nuova linea per 
trovare la locazione di fine programma. 
Utilizza per questo scopo le locazioni 
$57 e $58 che sono a disposizione per 
la memorizzazione di dati transienli; il 
confronto avviene con il numero zero 
per i motivi analizzati prima. 

Se il puntatore non contiene zeri, sal- 
ta alla routine $CF51-$CF60 che memo- 
rizza in $57 e $58 il prossimo puntatore 
e ritorna a SCF30 a fare i confronti. Se 
il primo byte del puntatore (byte basso) 
è uguale a zero passa ad un ulteriore 
confronto sul secondo byte (byte alto) 
per vedere che valore contiene; se è di- 
verso da zero salto alla subroutine di pri- 
ma per lo stesso motivo. Altrimenti me- 
morizza nelle locazioni da $00 2 D a 
$0032 la locazione di fine programma 
($CF3D-$CF50); l'istruzione RTS ritor- 
na il controllo al BASIC . 

In figura 6 troviamo il programma BA- 
SIC strutturato con lo stesso principio 
del programma in figura 3, Per ('utiliz- 
zo del programma digitare: 


SYS (53000) 'toome prg", 8 e dare il 
RUN. 

Dopo aver caricato il primo program- 
ma in modo normale caricare il secon- 
do utilizzando la SYS. Per chi possie- 
de un assemblatore è molto più como- 
do digitare queste routines direttamen- 
te in codice mnemonico copiando i ti't- 
sassemblati. Questo elimina il problema 
di caricare per prima la routine e dopoi 
programmi poiché essendo locate a 
$CF08 non influiscono assolutamente 
con i programmi in memoria. 

A secondo del tipo di computer su cui 
si vuole digitar© il programma si deve 
inserire l'adatto valore numerico facen- 
do riterimeto ai commenti a fianco di 
ogni label. Se il programma deve esse- 
re digitato in BASIC occorrerà cambia- 
re i DATA in maniera opportuna e fare 
attenzione anche al fatto che i due pro- 
grammi per il Commodore 64 partono 
dalla locazione # 53000 e quindi occor- 
rerà anche provvedere a rii oc aro più in 
basso le routine non dimenticandosi dì 
modificare anche i JMP e JSR. 


I LABEL 

HEX 

DEC 

DESCR 

! 

1 

I Z I OHE 1 
1 

- - s 

1 TXTTflB 

2B-2C 

43-44 

INIZIO 

i 

BASIC l 

1 VARTRB 

2D-2E 

45-46 

INIZIO 

i 

VARI RE. 1 
1 

1 ARVTAB 

2F-30 

47-43 

INIZIO 

MATRICI 1 

! STREND 

31-32 

43-50 

FINE 

j 

MATRICI 1 
1 

! 




1 

1 


Figura 4; locazioni 9 taro sanificale 


10 

FFFF 

****** ******* ****#**#****#*#$f 

11 

FFFF 

;# 

* 

12 

FFFF 

;* 

ARRENI) PER COMMODORE * 

1 3 

FFFF 

;* 

* 

14 

FFFF 

;* 

I VALORI IN ESABEGI MALE * 

15 

FFFF 

;# 

* 

16 

FFFF 

;* 

SONO RIFERITI AL C64 * 




17 

C TTl p‘ 

#- 

* 




Vo 

FFFF 






18 

FFFF 






20 

|- 1_ p r 

. * PRÈSI S 

pone: ml caricamento * 




21 

FFFF 

:* 

* 




“i 

FFFF 

IN COI! 

9 RL PRÒ IN MÈMORI fi * 




23 

FFFF 

; 

* 




24 

FFFF 





25 

CF0S 

A3 80 

LBfl #$0S 




26 

CF6fi 

85 8R 

STA VERCK ;PER 

64 

E 

VIC 20 = 0fl 

27 

CF0C 

20 B4 El 

JSR SLPRRfi ; PER 

64 

= 

E1D4..VIC20 

28 

CF0F 

R5 20 

LDR VRRTRBILE) ; PER 

64 

E 

VI C 20 = 2 Et 

29 

CF i I 

33 

SEC 




30 

CF 1 2 

ES 02 

SBC #$@2 




"■ i 

„■ j. 

CF 1 4 

RR 

TAK 





CF15 

R5 2E 

LDR VARTAB<HB> .PER 

64 

E 

VIC20 = 2E 

23 

CF 1 7 

E9 00 

SBC #$00 




34 

CF 1 9 

R8 

TfìV 




35 

CF-lfi 

H5 0R 

LDR VERCK 




36 

CF 1 C 

20 05 FF 

JSR $FFD5 i R I CH I FINO 

ROUTINE DI 

37 

CF 1 F 

20 33 flS 

JSR LNKPRG PER 

64 

= 

H533.. VIC2C 

33 

FFFF 





39 

FFFF 

: 4 

$ 




40 

FFFF 

R I CERCA FINE FROGRRNMR * 




41 

FFFF 

: * 





42 

pppp 

; ****#*****#*****s****i|i!f*i4i**Hjf*:+: 




43 

CF22 

A 5 2D 

L0R VARTRB<LB> 




44 

CF24 

R4 2È 

LDV VfiRTHBtHB) 




45 

CF26 

38 

SEC 




46 

PF27 

FR 02 

SBC #$82 




47 

CF29 

85 57 

STR T EMPR I C 1 > ; PER 

64 

E 

VIC20 - 57 

48 

CF2E 

88 

TVfl 




49 

CF2C 

E 9 80 

SBC #$00 




50 

CF2E 

85 58 

STR TEMPRI 12> -PER 

64 

E 

VIC20 = 58 

51 

CF3G 

R0 00 

LDV #$00 




■ J ±1L 

CF32 

B1 57 

LDR < TEMPF J(l) > .■ V 




53 

cFs‘4 

00 10 

BNE TCF51 




54 

CFi-S 

C8 

INV 





CF37 

B1 57 

LDfl< TEMPRI (1 ::.)..V 




56 

CF33 

D0 1B 

BNE $CF51 




57 

FFFF 

.;+*****»* **+jf:**#** ************* 




58 

FFFF 


% 




59 

FFFF 

; * AG G I CRN AMENTO B E I PUNTRTOR I * 




60 

FFFF 

; £ 

* 



t 

61 

FFFF 





62 

CF3E 

R5 57 

LDR TEMPRI U > 




63 

CF3B 

18 

CLC 




64 

CFSE 

63 02 

RDC #$02 




65 

CF40 

85 23 

STA VARTABILEO 




66 

CF42 

85 2F 

STR RRVTflBCLB) jPER 

64 

E 

VIIC20 => 2F 

67 

CF44 

85 31 

STR STREND <LB> ;PER 

64 

E 

VIC28 =.31 

6y 

CF 46 

R5 58 

LDR TEMPF 1 12 > 





46 - Commodori? 



63 

CF4S 

69 30 

ADC #$00 




70 

CF4A 

35 2E 

STA VARTAB<HB> 




71 

CF4C 

85 30 

STA RRITAB<HB> ;PER 

64 

E 

VIC20 = 30 

72 

CF4E 

85 32 

STA STREND<HB> iPER 

64 

E 

V I C26 = 32 

7-3 

CF56 

60 

RTS 




74 

FFFF 

.;****************************** 




75 

FFFF 

AGGIORNAMENTO PUNTATORE * 




76 

FFFF 

;* 

* 




77 

FFFF 

:* PROSSIMA LINEA BASIC * 




78 

FFFF 

; ****************************** 




79 

CF37 

B1 57 

LDACTEMPF1 < 1 )) , Y 




SO 

CF55 

35 59 

STA TEMPF1 (3) ;P£R 

64 

E 

VIC20 = 53 

SI 

CF57 

C8 

INV 




82 

CF58 

B1 57 

LBACTEMPFKl >) , V 




33 

CF5A 

85 58 

STA TEMPFK2) 




34 

CF5C 

A5 59 

LDA TEMPFK3) 




35 

CF5E 

35 57 

STA TEMPFKU 




86 

CF60 

4C 36 CF 

JMP $CF30 




87 

CF63 

00 

BRK 





Figura 5: sassembiato 


100 

REM 

101 

REM 

102 

REM 

103 

REM 

104 

REM 

105 

REM 

186 

REM 

107 

REM 

103 

REM 

103 

REM 

110 

REM 

111 

REM 

112 

REM 

113 

REM 

114 

REM 

115 

REM 

116 

REM 

117 

REM 

118 

REM 

113 

REM 

120 


121 

FOR 

122 


123 

REM 

124 

REM 

125 

REM 


#***#♦*#*#*****#######*#** 


* * 

* APPEND * 

* * 

****###***********#****!(£** 
* * 

* RUTHOR SOFTWARE : * 

* * 

* GIANCARLO DE COBELL I * 

* * 


************************** 


* $ 

* VIC 26 +EXP. SI * 

* COMMODORE 64 SI * 

* COMMODORE 4666 NO * 

* COMMODORE 8660 HO * 

* COMMODORE 16 HO * 

* COMMODORE PLUS 4 HO * 

* * 


************************** 

K=530@0 TO 53031 : READ R$ 

************************** 
* CONVERSIONE HEK TO DEC * 
************************** 


126 

127 

128 

129 

136 


131 

132 

133 

134 

135 

136 

137 

138 
133 

140 

141 

142 

143 

144 
>.45 


X=ASC(LEFT$(fl$, 1 ) >-48 ; IF X>9 T 
HEH X=X~? 

V-ASC < R I GHT$ < fl$ , 1 >> --48 : I F V>9 
THEN V=V-7 

fl=K*16+VP0KE K , fi NEXT 

PR I NT " [ DOWN 3 D I Gl TRRE SVS53080 " 
CHR* < 34 > " HOME PRO 1 " CHRf < 34 > ", DE 
V. " 

PRIHT" [DOWH3PER FARE L' APPEND. 

ri 

NEW • END 


DATA A3, 90 , 35 , Oft , 20 , D4 , E 1 , A5 
DATA 2D, 33, E9, 02, AA, A5, 2E,E9 
DATA 00 , A3 , A5 , 0A , 20 , B5, FF , 29 
DATA 33 , R5 , A5 , D2 , A4 , 2E , 33 , E3 
DATA @2, 85, 57, 38, E3, 00,85, 58 
DATA A0, U0, B1 , 57, DO, 1B, CS, E1 
DATA 57 , D6 ,16,85,57,18, 63', 02 
DATA 35, 2D, 35, 2F , 85,31 ■ A5, 53 
DATA 69 , 00 , 85, 2E , 35 , 30, 85 , 32 
D A T A 60 , A0 , 60 , E 1 , 57 , 35 , 53 , C8 
DATA E 1 , 57 , SS , 53 , A5 , 59 , 35 , 57 
DATA 4C,3@,CF,00 


Figura fi: j data m forma osadMimate a programma BASIC strutturato 
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UN FENOMENO FISICO 

Il comportamento Elastico dei Corpi 

di Mauro Masselli 



Come è ormai ampiamente risaputo, 
sebbene non tutti accettino questo da- 
to di fatto, if Computer si dimostra di 
grandissima utilità nella didattica in ge- 
nerate ed in modo particolare nell 1 aiuto 
alla comprensione di alcuni fenomeni fi- 
sici o leggi matematiche, proprio perché 
la velocità di elaborazione e di simula- 
zione ci permette di "toccare con ma- 
no" i vari fenomeni. 

Queste due materie sono sempre sta- 
te classificate come ' fredde" anche 
perché sono, nella quasi totalità, molto 
difficili da illustrare a parole, da capire 
cdnceftualmente e da valutare nelle lo- 
ro più varie sfumature. Prendiamo ad 
esempio un fenomeno fisico che, ad in- 
saputa di mote, è il vero protagonista 
delle domeniche' 


\i fenomeno elastico 

È infatti grazie alle proprietà elastiche 
dei corpi che il pallone passa da un pie- 
de ad un altro piuttosto che ad un altro 
ancora, rimbalza sul campo di calcio, 
vola per un colpo di testa, batte sulla tra- 
versa e si insacca in rete. 

È comunque molto difficile rendersi 
conto di come varia il presentarsi di un 
fenomeno al variare di alcuni parame- 
tri, avendo sott T occhio solamente le for- 
mule cho lo traducono matematicamen- 
te, e lungo e laborioso eseguire manual- 
mente i calcoli necessari per un nume- 
ro di esempi significativi per la compren- 
sione dello stesso. La mancata com- 
prensione porta spesso ad errori concet- 
tuali come, nel caso specifico, quello di 
credere che sia più elastico un urlo fra 
due biglie di gomma che fra due di ac- 
ciaio. 

A questo proposito si vuote spiegare 
che l'idea principale di "urto" è che il 
moto delle particelle collidenti, o di al- 
meno una di essa, vani piuttosto rapi- 
damente e che sia possibile una sepa- 
razione piuttosto netta di tempi "prima 
det l'urto 1 ' e "dopo l'urto". 


Quando una mazza, per esempio, 
colpisce una palla da baseball, l'inizio 
e la fine deirurto possono essere deter- 
minati con sufficiente precisione: la 
mazza resta in contatto con la palla per 
un intervallo di tempo molto breve in 
confronto ai tempo per il quale si osser- 
va la palla e durante l'urto la mazza 
esercita una grande forza sulla palla 
Questa forza varia nei tempo in un mo- 
do così complesso che te si può misu- 
rare con difficoltà. Durame f urto tanto 
la palla quanto la mazza si deformano, 

Le forze agenti per un tempo breve 
in confronto al tempo di osservazione 
del sistema sono chiamate "impulsive' 1 
Gli urti sono usualmente classificali a 
seconda che in essi si conservi o meno 
l'energia cinetica (è la forma di energia 
proria del moto la cui espressione fisi- 
ca è T- 1/2* mv? dove ’m" è la mas 
sa del corpo e “v" è la sua velocità). 
Quando questa si conserva, l'urto vie- 
ne detto ELASTICO; altrimenti è ANE- 
LASTICO. 

Gli urti {o meglio le collisioni) fra par- 
ticelle atomiche, nucleari sono talvolta 
elastiche: questi infatti sono i soli urti ve- 
ramente elastici che si conoscono. Gli 
urti fra corpi estesi sono in un cerio sen- 
so sempre anelastici; spesso però si 


possono trattare, senza introdurre gros- 
si errori, come approssimativamente 
elastici, come ad esempio quelli che av- 
vengono fra sfere di avorio o di vetro. 

Infatti accade che T quando due corpi 
si urtano fra loro, parte dell energia che 
possiedono venga, per così dire, "usa- 
ta" nella deformazione degli stessi. \n 
conseguenza a ciò appare chiaro che 
due corpi, definiti comunemente ''rigi- 
di". diano origine ad un fenomeno ela- 
stico in senso stretto 

Per capirci meglio si consideri, su un 
tavolo da biliardo, dapprima due sfere 
di gomma; potendo riprendere l'espe- 
rimento ondo rivederlo sufficientemen- 
te rallentato si porrebbe notare che, ur- 
tandosi, ciascuna di esse, per un istan- 
te sì deformerà schiacciandosi sul la rea 
di contatto ed alta forza con la quale si 
respìngeranno dovrà essere sottratta la 
parte di energia spesa per la deforma- 
zione; se ora si considerano due palle 
da biliardo ver© e propri© e si ripete 
quanto sopra, si nota che la deforma- 
zione da esse subita risulta minima e, 
quindi, mìnima è la parie di energia che 
viene sottratta alia forza con la quale es- 
se si respingono. 

Come esempio si passa a calcolare 
il moto dì una sfera che. rimbalzando 
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sotto fazione delta forza di gravità, si 
sposta alto stesso tempo in direzione 
orizzontale. Per semplicità, che per al- 
tro non altera le relazioni fisiche del fe- 
nomeno in atto, si suppone che non vi 
siano attriti, ne dovuti al mezzo nel qua- 
le si muove la sfera ne al contatto fra 
le sfere, e che il coefficiente di rimbal- 
zo sia dato da quella parie di energia 
che non viene alterata dalfimpatto. 

Si presupporrà nel programma noto 
lo spostamento verticale iniziale, vale a 
diro l'altezza originale sul terreno, non 
ché la velocità orizzontale V e ri nume- 
ro di volte N che la palla rimbalza Sarà 
anche noto il coefficiente di rimbalzo C. 
rapporto tra la velocità verticale subito 
dopo l'urto e velocità subito prima. 

N calcolo 

Per calcolare la posizione in tempi di- 
versi, sì sceglierà prima un piccolo in- 
cremento di tempo D e si userà poi la 
seguente legge, eh© in fisica vale per 
ogni incremento dì tempo: 

T(1 + 1) = T(t) + D 

X(J+1)^X(I)+V‘D 

Z(l + 1 ) - Z(l)-G * 0 

Y(l + 1) = Y(l) + .5*<Z(i) + Z(! + 1 J) * D 

dove X si riferisce allo spostamento 
orizzontale, zero in origine all'inizio del 
fenomeno, Zela velocità verticale, che 
è anch'essa zero al l'inizio del problema, 
Y l'altezza sul terreno e G l'accelerazio- 
ne di gravità (9 t 81 m/s 2 ). Gli indici I e 
I + 1 indicano i valori delle diverse va- 
riabili rispettivamente all' inizio e alla fi- 
ne dell'incremento di tempo. 

Se durante questo incremento di tem- 
po si verifica un rimbalzo, le formule di 
calco io vanno yn po' modificate: una 
condizione dì rimbalzo è caratterizzata 
da un valore negativo di Y (f + 1), il che 
è fisicamente impossibile. Quando si ve- 
rifica detta condizione, si ricafcola 
Z(l + 1} e Y(l + 1), net modo che segue 
Prima si trova ìMempo necessario alla 
palla per toccare il suolo, partendo dal- 
la posizione all'inizio del tempo l-mo. 

Chiamando questo tempo DI si avrà, 
con una proporzione lineare: 

Dl/D«Y(I)/Y{l)-Y(l + 1) 

e scrivendo in BASIC: 

Di = D*Y(t)/(Y(É)-Y(t + 1)) 

Si può ora calcolare la velocità verti- 
cale immediatamente prima del l'urto e 
sarà: 

Z-Z(IH 3 ‘DI 

così che fa velocità verticale subito 
dopo l’urto sarà: 


Zi = -C*(2(I)-G*D1 ) 
e la velocità varicele alla fine dall’in- 
c re mento di tempo: 

Z(f + 1) = Z1-G"(D-D1) 
e lo spostamento in senso verticale al- 
la fine dell'incremento di tempo sarà: 
Y(S + 1 } * .5*(21 + Z(l + 1 )) ‘fD-DI ) 

Schema del programma 

Ora si hanno abbastanza informazioni 
a disposizione per tracciare lo schema 
del programma completo: 

1- leggere H,V,N T C ± D 

* se H * O il calcolo termina 

* se ad H è assegnato un valore 
positivo, andare al passo successivo 

2- inizi a lizzare tutti i parametri 

1 = 1 (l è il contatore d'incremento) 
X(l)-0 

B - 0 (B è il contatore dei rimbalzi) 
O 

T(!) = Q Y(J) ■ H 

3- calcolare spostamento orizzontale 
e verticale e velocità verticale per ogni 
incremento di tempo, usando le formu- 
le esaminate precedentemente 

4- se fa palla urta il terreno durante 
r incremento di tempo, controllare se si 
tratta dì una condizione di rimblazo o se 
invece termina il programma: 

* condizione di rimbalzo {B < N) biso- 
gna ncalcolare sia la velocità che fo spo- 
stamento verticale per tener conto del 
rimbalzo: bisogna poi incrementare il re- 
lativo contatore (B= B+ 1), e si passa 
quindi aì successivo incremento di tem- 
po. 

* condizione terminale (B = N) si rica- 
va l'ultimo tempo, e lo spostamento oriz- 
zontale quando fa palla urta II terreno 

5- stampare i valori finali di X e T, se- 
guiti da una tabella completa dì T,X,Y,Z 

6- diagrammare Y in funzione dì T 

7- tornare al punto 1 . 

il programma BASIC 

Qui di seguito è riportato it listato com- 
pleto del programma BASIC per la "si- 
mulazione del rimbalzo di una sfera" ed 
un commento sui blocchi più importan- 
ti nonché; la fiow-chart dello stesso e la 
cr oss-r etere nce, 

REMaicks 

24- limensionamento dei vettori 
31-130 input dei dati: per alcuni di es- 
si è stato fissato un massimo per ragio- 
ni grafiche; por quanto riguarda il nume- 
ro del rimbalzi e l'incremento di tempo. 


è bene tener presente che data la rap- 
presentazione grafica degli stessi su 
un'unica videa ita e l'approssimazione 
della rappresentazione, bisogna mante- 
nere valori rispettivamente non superiori 
a 4 per i rimbalzi e inferiori a 0.1 per l'in- 
cremento di tempo Per quest'ultimo bi- 
sogna inoltre tener presente che te for- 
mule usale hanno valore solo per incre- 
menti sufficientemente piccoli il che por- 
ta il "range" disponibile ad essere com- 
preso fra 1 e 0 1. 

1B0-19Q inizializzazione dei parametri 

240-420 calcola i parametri per ogni 
incremento dì tempo, controlla se vi è 
un rimbalzo e, ne! caso l’evento sia ac- 
caduto, inveri e la direzione dì moto e 
calcola i parametn relativi all’ultimo con* 
tatto. In questo blocco viene utilizzata 
la subroutine allocata dalla linea 760 al- 
la linea 790 

450-510 visualizzazione alfanumeri- 
ca dei dati impostati e. a richiesta, cal- 
colati 

560*590 routine di grafica. Visualiz- 
za graficamente I dati precedentemen- 
te calcolati. In questo blocco si usano 
le subroulines allocate rispettivamente 
dalle lìnee 1410, 1440, 10020 alle linee 
1430, 1 460, 10150 

599-610 torna all'inizio e termina l'e- 
secuzione 

760-790 subroutine dì calcolo dei pa- 
rametri: tempo, coordinate e velocità 

1410-1430 posiziona la sfera sullo 
schermo; questa submarine utilizza il 
primo dei 1 7 caratteri speciali ridefirtfli 

1440-1460 segna la posizione prece- 
dentemente occupata dalla sfera; que 
sta routine utilizza i rimanenti 16 caral 
teri ri defin iti scegliendone uno a mez- 
zo della subroutine allocala dalla linea 
20010 alla linea 20090 

10020-10150 subroutine di ricopiatu- 
ra caratteri dalia ROM alla RAM e di 
creazione dei 17 caratteri speciali ride- 
finttb I dati relativi ai caratteri utente so- 
no col focati dalla linea 10160 alla lìnea 
10320 

20010-20090 sceglie quale dei 16 ca- 
ratteri speciali è più adatto a rappresen- 
tare la posizione precedentemente as- 
sunta dalla sfera. Grazie a questa me- 
todologia si riesce ad aumentare con- 
siderevolmente fa precisione grafica del 
programma senza dover far uso della 
grafica ad afta risoluzione 
2 1 000-2 1100 intesi az ione „ 

L'utilizzo del caratteri predefiniti, ri- 
spetto alla grafica ad alta risoluzione, ha 
come vantaggio una maggiore velocità 
di visualizzazione grafica anche se im- 
pone un’attesa, un po’ noiosa, nella fa- 
se di ricopiatura da ROM a RAM 
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Figura 1 : flow chart del blocco principale del programma 
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PROGRAMMA FENOMENO EL, 


VRR* 

! LINER 

BEL PROGRAM*!* 



9f 

* 31 

48 

458 

599 



B 

! 180 

278 

328 




B$ 

! 60 

7@ 

451 




EV 

! 10080 

101 20 

10140 




c 

3 t 10 

230 

453 




cs 

! 80 

98 

452 




CH 

! 1450 

18068 

10120 

10140 

20090 


CP 

! 420 

1418 

1446 




D 

1 130 

288 

388 

310 

380 

760 


! 770 

78© 

790 




BS 

! 100 

110 

453 




m 

\ 28@ 

298 

308 

310 



DI 

' 139 

454 





E$ 

[ 120 

130 

454 




0 

! 19S 

298 

300 

780 



H 

! 40 

58 

190 

450 



I 

! 24S 

268 

280 

290 

300 

310 


! 330 

380 

400 

438 

495 

500 


! 510 

568 

570 

590 

760 

770 


! 780 

798 

1410 

1440 

1O035 

10Ù37 


! 10O38 

21188 





li 

i 400 

410 

42@ 

490 

570 


J 

» 570 

10836 

10837 

10038 



K 

! 510 






H 

! 38 

270 

452 




NU 

! 10100 

10120 





PO 

* 1410 

1420 

1445 

1450 



PX 

* 20810 

28820 

26030 

20040 

20090 


PY 

; 20058 

20068 

28070 

20080 

20090 


SS 

! 488 

605 





T< 

» 24 

180 

410 

495 

760 


TI 

* 418 

478 





V 

i 70 

451 

770 




X( 

' 24 

138 

420 

500 

770 

1410 


i 1448 






XI 

* 420 

468 





XP 

» 1440 

1445 

20010 

20020 

20030 


ve 

' 24 

1 98 

260 

280 

310 

380 


1 508 

790 

1418 

1440 



VP 

! 1448 

1445 

28050 

20060 

20070 


|t 

r 24 

130 

290 

300 

310 

500 


' 788 

790 





ZI 

i 250 

300 

310 
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10 REM a#*#***#**#***##*#****' 

1 1 REM * SIMULAZIONE * 

12 REM + DEL RIMBALZARE * 

13 REM * Il UNA SFERA * 

14 rem +***M*.***w**mmMm 

15 REM * AUTHOR : * 

16 REM * MAURO MASSETTI * 

17 REM *****#******#**+**.***# 

13 REM * SOLO PER '>64 * 

13 REM *#*****#**+*****■'6++*** 

20 REM 

21 REM *##*#**##*+♦**###**##$ 

22 REM * l' IMENS. VETTORI * 

23 REM *■#** **:+******#*#**#■**# 

24 F'RINT" CCLEAR]' 1 DIM X < 202 > , V < 2 


02 > .■ Z <282 > ■ T <2Ù2) GOSUB 2 1 000 
25 REM **•*#**####*******#** 

27 REM * IMPUTAZIONE DATI * 

23 REM **$***************** 

30 REM 

31 h£=“hLTEZZA INIZIALE DELLA SFE 
RR ,J 

40 PRINTAt . INPUT M PR I NT : I F H>=2 
5 THEN H-24. 33993 
50 IF H>0 THEN 40 

m Bi= "VELOCITA-' ORIZZ. INIZIALE 
11 

70 FR I NT E$ , : 1 4P UT V PR I NT I F V> 1 6 
THEN V=l@ 

SO Ci -“NUMERO DEI RIMBALZI " 
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90 PRINTC*; ' INPUT N : PRINT 
100 D*»" COEFFICIENTE DI RIMBALZO " 
1 1 0 F'RIHTDt ; : I NPUT C : PR I HT : I F C> 1 
THEN Ol 

120 Et=" INCREMENTO DI TEMPO " 

130 PRINTE*! = INPUT D: PRINT :DI=D 
140 PRIHT : PRINT" ATTENDERE PREGO!" 

158 rem ****************** 

160 REM * INIZ. PARAMETRI * 

162 REM ****************** 

180 B=0:T<1>*0:X<1)=0:Z<Ì>**0 
190 V<1 >=H : G=9.81 

218 rem ******************* 

219 REM * CALCOLA I PFlRAM * 

220 REM * PER OGNI INCR. * 

230 REM * DI TEMPO * 

232 REM ******************* 

240 FOR 1=1 TO 200 

250 GOSUB ?3S 

260 IF V<I+n>0 THEN 330 ■ 

270 IF E=N THEN 360 

273 rem ******************* 

274 REM * CORREZIONE DEL * 

275 REM * RIMBALZO * 

277 REM * ****************** 

280 D1»D*V<I>AV<I>-V<I+1>) 

290 Zl=-C*<Za)-G*Dl) 

300 Z< 1+1 >=Z1-G#<D-D1 > 

310 V(I+I>-.3*<Z1+Z<I+1>>*<D-D1> 
320 B=B+1 
330 NEXTI 
340 GOTO 480 

358 REM ******************* 

360 REM * ULTIMO RIMBALZO * 

362 rem ##**#**#**#**##! **** 

380 D=D*V<n/<V<I)-V<I+l>? 

390 GOSUB 738 
400 11=1 
410 T 1 =T ( I 1 > 

420 Xl=Xai) :CF=39/X1 

433 REM *********************** 

448 REM * OUTPUT NUMERICO * 

442 rem *********************** 

45S PRINT" [OLEARI " : PRINT : PRIHT :RRI 
NTA$ i H ■ PRINT 

451 PRINTB$.: V : PRINT 

452 PRINTC$;H: PRINT 

453 PRIHTDì-- C ■ PRINT 

454 PRIHTEtJ DI -PRINT 

460 PRINT "DISTANZA 0RI2Z. PERCORSA 
— M ; XI j 11 : PRINT 

470 PRIHT"TEMPO RICHIESTO= "ITI;" 


SEC" : PRINT 

480 PRINT : PRIHT : INPUT "VUOI VISUAL 
I ZZARE TUTT I I DAT I C S/N) " ; S $ : I 
F Si*"!! 11 THEN 520 
490 FOR 1=1 TO II 

495 PR I NT : PR I NT : PRIHT "DATI RELATIV 
I ALL'' ISTANTE : “ITCD 
508 PRINT"X= "XU),"Y= "1V<I> = PRIN 
T"Z= "IZU SPRINT 
510 FOR K»1 TO 500 : NEXTK : NEXTI 
520 PRINT 

541 rem ******************* 

543 REM * ROUTINE GRAFICA * 

545 REM **#######*#*#**#*#* 

550 PRIHT" [OLEARI" 

560 GOSUB 10020: 1=8 : GOSUB 1410 
570 FOR 1=1 TO Il:FOR J=1 TO 25:NE 
XTJ 

580 GOSUB 1440: GOSUB 1418 

596 NEXTI 

592 rem ********************** 

593 REM * RITORNA ALL7INIZI0 * 

594 REM * 0 TERMINA * 

595 REM * L'ESECUZIONE * 

597 REM ****###**####**#*###** 

599 GET A$ : I F A$="" THEH 599 

600 POKE 53272,21: REM CARATTERI N 
ORMALI 

605 PRIHT" [CLEARI": INPUT "VUOI CON 
T I NUARE < S/N ) " S$ : I F S$="N" THE 
N END 

610 PRINT" [CLEfiRl": GOTO 30 
72S REM **************** 

730 REM * SUBR. CALCOLO * 

731 REM * PARAMETRI * 

732 REM **************** 

I 768 T<I + Ì>=Ta)+D 

778 XCI+1)*X<I)+V*D 

?30 za+n=za?-G*D 

798 VCI + 1 >=V<I )+ . 5*<Z< 1+ 1 >+Z< I > >*D 

800 RETURN 

1398 REM ****************** 

1399 REM * SUBRQUTINE * 

1400 REM * DI * 

1401 REM * POSIZIONAMENTO * 

1402 REM ****************** 

1410 PO= 1 024+ < 24- 1 NT < V a + 1 > > > *48 + 1 H 
T<X<I+1)*CP> 

1428 POKE PO, 94 : REM POSIZIONA LA S 
FERA 

1430 RETURN 

1 440 XP=X < r ) *CP : VP=V< I ) : GOSUB 28006 
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1445 

1450 

1460 
1001 1 
10012 
1 002© 
10021 
10022 

10023 

10024 

10025 
1002? 
10031 

10035 

1 @036 

1003? 

1003S 

10033 


10040 


10041 
1 0060 
10080 
1 0 1 00 
10120 
10140 

10150 

10153 

10154 

10155 

10156 
10158 
10160 

10170 

10180 


P0= 1 824+ < 24- 1 M T ( VP > > *40+1 H T ( XP 

POPE PO» CH : REM POSIZIONE PREC 

SDENTE 

RETURN 

REM ************* 

REM * CREAZIONE * 

REM * DEI * 

REM * CARATTERI * 

REM * SPECIALI * 

REM ************* 

REM * DISATTIVA * 

REM * KB E I/O * 

REM ************* 

POKE 56334, PEEK t 56334 > AND 254 

: POKE 1 , PEEK < 1 > AND 251 

POR 1=0 TO 110 REM CARATTERI 

DA COPIARE DALLA ROM 

POR J=0 TO ? : REM COPIA GLI S 

BVTE DI UN CARATTERE 

POKE 12288+1 *S+ J , PEEK < 53248+ 1 * 

8+J> : REM COPIA UH BVTE 

NEXTJ NEXTI REM PASSA AL PROS 

SINO BVTE 0 CARATTERE 

POKE 1 , PEEK ■' 1 > OR 4 ■ POKE 56334 

, PEEK ( 56334 ) OR 1 REM ATTI VA 

I r^O Ei KB 

POKE 53272» < PEEK >: 53272) AND 24 
8 >+12 REM IMPOSTA IL PUNTRTOR 
E 

REM CARATTERE ALLA LOCAZIONE 

DI MEMORIA 1223S 

POR CH=94 TO 110: REM ’ PROGRAMM 

A I CARATTERI DAL 94 AL 110 

POR BY=@ TO ? : REM COSTRUISCE 

GLI 3 BVTE DI UN CARATTERE 

READ NU : REM LEGGE 1/S DEI DA 

TI DI UH CARATTERE 

POKE 1 2233+ < S*CH > +B V , NU REM M 

EMORIZZA I DATI 

NEXTBV NEXTCH : REM PASSA AL PR 
OSSIMO BVTE 0 CARATTERE 
RESTARE : RETURN 
REM ***************** 

REM * DATI PER CHRS * 

REM * SPECIALI * 

REM * DAL 94 AL 110 * 

REM ***************** 

DATA 6@, 126, 255, 255 , 255» 255» 1 

Via-, , hy 

DAT A 1 92 » 1 92 , 0, © ,©,0,0,0 
DHTh 43,4 S , 0 , 0 , 0 , y , 0 , 0 


1 O 1 90 
18200 
10210 
10220 
18238 
18240 
10250 
1 0268 
10270 
10230 
18290 
10380 
10310 
10320 
2000 © 
20002 
20085 
2O006 
2000 ? 
20010 

20028 

20038 

20840 

20O58 

20860 

2007© 

20830 

20899 

21008 

21830 

2105© 

21870 

21074 

21075 
21830 
21@85 
21086 
21098 
21100 


DAT A 12,12» 0 , 0 , © , 0 , 0 , 8 
DATA 3, 3,8, 0,0, 0,0, @ 

DATA 0,8, 192, 192,0,8,8,0 
BATh 0,8, 48, 48» 0,0, 0,0 
DATA 0,8, 12, 12,0,0,0,0 
DATA O , @ , 3, 3, 0 ,0,0,0 
DATA 0,0, © » 8 . 1 92 » 1 92, © , 8 
DATA 0» 8» O» 0» 43 , 43» 8» © 

DAT A 0,8 » © , 0 , 12,12. » 8 , 8 
DATA 0, 0» 0, 0, 3 » 3, 0, 0 
DAT A 0 , 8, © ,0,0 , 8 , 192 . 1 92 
DATA 8 , 0 , 0 ,8,0,0,43,43 
DATA 0, 0,9,8, 0,0, 12, 12 
DATA 0,6, 8,0,0, 8,3,3 
REM ************* 

REM * SCELTA * 

REM * CARATTERE * 

REM * GRAFICO * 

REM ************* 

IF (XP-IHT <XP> X. 25 THEN PX=1 
GOTO 28050 

IF <XP-INTtXP)K.5 THEN PX=2:G 
OTO 20058 

IF <[ XP- 1 HT ( XP > > < . 75 THEN PX=3 • 

GOTO 20050 

PX--4 


IF < VP- 1 NT < VP > > < . 25 THEN PV=3: 
GOTO 20890 

IF <VP-INT(VP)>C. 5 THEN PV=2G 
OTO 20O90 

I F < VP- 1 NT < VP > K . 75 THEN P V= 1 : 

GOTO 2089h 

PV=0 

C H = 9 4 + 4 * P V + P X : RETURN 
REM **************** 

REM * INTESTAZIONE * 

REM **************** 

PRINT 11 [3 DONNI " 

FRI NT" 

yy.y.y.y.xy.y. H 

PRINT" y. [ RVS 1 

[RV0FF12" 

PRINT" XI RVS 3 IL FENOME 

HO ELASTICO I RVOFF 1 " 

PRINT" JiCRVSI 

1 RVOFF ]X" 

PR I NT " 

AURO MASSETTI" 

FOR I = I TO 58 00 : NEXT I : PR I NT “ C C 
LEAR] " : RETURN 
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CROSS REFERENCE 


di Gloriano Rossi (12KH) 


Una delle lacune del BASIC può es- 
sere identificata nella mancanza di un 
comando che permetta di sapere dove 
sia o dove venga citata una determina- 
ta variabile Sui computer Commodore 
questa mancanza é in parte colmata, in- 
tatti è possibile caricare una routine in 
linguaggio macchina che normalmente 
viene identificata con i! nome di FINO, 
e che però cerca una sola variabile per 
volta 

Ed ancora: il sistema di programma- 
zione serio comanda che sia sempre 
presente una documentazione il più 
esplicita possibile relativa ad un qual- 
siasi programma o procedure. Poi, in fa- 
se di Up-dating* quella azione cioè che 
ci permette di correggere o aggiornare 
un programma, è estremamente utile 
avere una mappa delle variabili, in par- 
ticolar modo se il programma in ogget- 


to risulta particolarmente lungo. 

Per queste ed altre valide rag toni, che 
non sto qui ad enunciare per non tedia- 
re ulteriormente il lettore, pubblico que- 
sto mio programma la cui prima versio- 
ne data circa 5 anni fa. Nel 1 979, abi- 
tuato a lavorare sui grossi elaboratori 
(quelli che utilizzano linguaggi evoluti 
quaii ad esempio H COBOL) ogni velia 
che si compilava un programma, fla 
compilazione è quella fase che permette 
di trasformare il linguaggio vicino all'uo- 
mo in una serie di codici vicini alla mac-' 
china), si otteneva una mappa delle va- 
riabili e delle 3 a bel s (i numeri di riga ri- 
chiamali in BASIC) con i relativi numeri 
di righe ove queste venivano citate. 

Queste mappe si chiamavano pro- 
prio : Cross Reference. 

Vediamo ora cosa accade nei grossi 
computerà quando si dà loro in pasto un 


ASCII 

da a 

Codice 

attribuito 

variabili linee 

t 

33 

4 

4 


34 


1 

1 

“ doppi apici 

35 


4 

4 

X 

36 


7 

4 

s 

37 


7 

4 

% 

38 


7 

4 

& 

39 


4 

4 


40 


8 

4 

( 

41 

47 

4 

4 


48 

57 

6 

6 

numeri 

58 

64 

4 

4 


65 

90 

5 

4 

lettere 

91 

130 

4 

4 

[] (END/FOR/NEXT) 

131 


3 

3 

(DATA) 

132 

142 

4 

4 

(comandi BASIC) 

143 


2 

2 

(REM) 

144 

255 

4 

4 

(comandi BASIC) 

Figure I 

rotreOina a atmouZKJnc cto COdCi ai r*la1ihn valori ASCU dei caratlifri presenti su ogni riga 8A$C 


programma in linguaggio evoluto. Du- 
rante la fase di compilazione, il pro- 
gramma sorgente viene analizzato in 
ogni sua parte, dalla prima istruzione fi- 
no al l’ultima. Questo fatto serve tra l'al- 
tro per controllare l'esattezza delia ste- 
sura del programma, individuando gli 
eventuali errori di sintassi o di incon- 
gruenza. 

Fatto ciò e... se tutto va bene, l'azio- 
ne del compilatore prosegue con la tra- 
sformazione del programma sorgente in 
una nuova versione particolarmente vi- 
cina al linguaggio macchina Sarà poi 
una nuova utility, chiamata LINKÉR. 
che provvedere a ritrasformare, o me- 
glio aggiungere gli agganci. ìrv maniera 
tale che dopo l’ultima manipolazione, il 
programma iniziale sia direttamente 
eseguibile dal computer. Come detto 
precedentemente, una delle opzioni del 
compilatore è quella di offrire al pro- 
grammatore una mappa delle variabili 
e delle labels con le relative posizioni di 
dove vengono richiamate. 

Questo mio articolo vuole rendere 
possibile anche per i possessori di Com- 
modore avere una Cross Reference stu- 
diata appositamente per il BASIC. In un 
programma BASIC piuttosto breve l'u- 
so del Cross Reference potrebbe risul- 
tare mutile, in quanto lutto è sott occhio 
e con una sola occhiata si ha la situa- 
zione generale dei programma in esa- 
me. Ma quando il programma oggetto 
incomincia avere una Lunghezza davve- 
ro consistente... 

Una variabile si trova qui, poi nell al- 
tra pagina, poi ancora nell'ultima, ma 
non c’era anche da un'altra parte? Bhe, 
segna qui, poi fa .... dopo un po’ si ot- 
tiene un caos tale che non si capisce più 
niente. Con il Cross Reference tutto di- 
venta più semplice: si va a vedere la va* 
riabile e quindi, dalia mappa stampata, 
si arriva direttamente in quelle posizio- 
ni univoche dove ad esempio A$ è cita- 
ta. 
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VRRp * LINER BEL PROGRAMMA 

ì 


A 

! 310 

312 

323 

342 

344 

34.6 


! 380 

382 





Aì ! 

[ 226 

282 

£84 

306 

308 

310 


! 312 

■e«42 

344 

394 

402 

404 


! 406 

403 

41@ 

414 

462 

466 


! 468 

470 

472 




mi 

! 162 

264 

266 

358 

360 

364 


! 370 






B 

1 256 

262 

276 

280 

354 

356 


! 360 

362 

363 




BS 

! 226 

24t> 

292 

284 

398 

406 


i 410 

412 

470 

474 

430 


m< ! 

! 162 

178 

172 

210 

398 


c 

1 314 

372 

380 

334 

336 

388 


380 

382 

430 

434 

436 


Cì 1 

400 

412 

414 

472 

494 


Ci 

1 g2 

188 

190 

194 

196 

183 


200 

346 





ex 

316 

348 

374 

386 

390 


C2 1 

\ ly4 

186 

194 

314 

350 

372 

1 

! 373 

392 

464 




c 9 ! 

346 

348 

384 

386 

390 

- 386 


388 






J ! 

13o 

188 

194 

262 

264 

266 


270 

272 

274 

356 

358 

360 


362 

460 

462 

498 



K 

260 

278 

272 

352 

360 

362 


364 

366 

37@ 

464 

466 

4 b'S 


470 

472 





L 1 

306 

308 

328 

330 



Lì 

258 

268 

330 

332 



Mì ! 

350 

358 

360 

370 

376 

392 


384 






MAS 

! 1-58 

458 

454 




MBS 1 

! 160 

452 





MCÌ | 

! 456 

476 

496 




F$ 

! 204 

20k 

£08 

210 

446 


Qì 

! 166 

178 

40:-: 




SS 

! 168 

332 

482 

492 

494 


X ! 

! 260 

276 

460 




X$ ! 

! 266 

268 

270 

272 

456 

474 


! 480 

432 





X$< ! 

! 162 

278 

272 

462 



V 

! 478 

484 

486 

488 



*7 i 

f 432 

434 

486 




2$ i 

\ 176 

178 

186 

428 

434 



Figura 2. JJ programma CROSS REFERENCE osaxrunvróo stesso ed inkaalizzalg secondo le variabili produce 
un foglio esattàmonle m quella maniera Osservale che i nomi delle vaiiabtl» e degli array sono messi in ordine 
alfabetico e gli array sono disti ngurbiti dada variatale oor la presenzi della parodiasi ape*!3 


Il programma 

lf programma Cross Reference é stato 
io un primo momento realizzato in una 
forma un po' scialba 1 , povera É stato 
in seguito l'interesse e futilità che mi 
hanno spinto a migliorarlo fino ad otte- 
nere J edizione che vi propongo Non 
esistono grosse limitazioni neirutifizzo 
di Cross Reference, in quanto può gi- 
rare tranquillamente su tutti i Commo- 
dore ohe abbiano sufficiente spazio in 
memoria, ecco perché nella presenta- 
zione del listato l'ho dichiarato inacces- 
sibile per il VIC 20 versione base, infat- 
ti questo home potrà sfruttare il CR so- 
lo con almeno una espansione di me- 
moria. Per ciò che concerne poi ì nuovi 
Commodore (Ci 6 e Pius-4) si hanno 
delie istruzioni BASIC in più e quindi 
non ho ritenuto di ampliare fa logica di 
esame (elaborati va}, almeno per questo 
momento. 


Il listato 

Il listato del programma prevede nu- 
merosi commenti che illustrano passo 
passo l'evoluzione delle istruzioni, Una 
particolare attenzione si può focalizza- 
re là dove è necessaria la personalizza- 
zione secondo if tipo di Commodoro uti- 
lizzato. 

Vediamo la riga 246. Questa riga do- 
vrà essere battuta Se si utilizza un 
VIC20, un C16 oppure il Plus-4. Se si 
utilizza una serie Commodore 3000, 
4000 o 8000 f è necessario cambiare il 
numero 8 con il numero 4, infatti la riga 
in esame controlla se il programma og 
getto inizi alfa locazione di partenza del 
BASIC. Sappiamo infatti che nei Com- 
modore 64 detta locazione corrisponde 
a $0801 , mentre nella serie 3000 - 4000 
- 8000 fa locazione è $0401 . Una secon- 
da personalizzazione potrà essere ese- 
guita nella zona di programma dedica- 
ta alla stampa 

La routine proposta prevede la pos- 
sibilità di eseguire la visualizzazione dei 
risultati sìa su stampante che su video. 
Per una giusta im paginazione su uno 
schermo a 40 colonne, la variabile Z (ri- 
ga 432) dovrà corrispondere al numero 
6, mentre se l'output dovesse andare su 
stampante questo numero potrà esse- 
re modificato fino ad un massimo di 16 
(riga 434). 


Come si usa 

Vediamo come poter utilizzare il no- 
stro Cross Reference una prima volta in- 
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sieme Abbiamo terminato di digitare il 
CR e subito eseguiamo il salvataggio sul 
dischetto (SAVE 'CROSS REFEREN- 
CE”, 8), Fatto ciò eseguiamo il RUN. 

La prima domanda a cui dobbiamo ri- 
spondere è quella relativa al tipo di esa- 
me: per variabili o per linee. Proviamo 
una pnma volta con le variabili. Tenete 
presente che rispondendo in questa ma* 
niere vengono analizzate non solo le va- 
riabili, ma anche gli array. 

La seconda domanda che CR ci chie- 
derà sarà quella reietta al programma 
da prendere in esame e noi. risponden- 
do con CROSS REFERENCE non fare- 
mo altro che dirgli di esaminare se stes- 
so. A questo punto CR farà tutto da so- 
lo: accederà al discetto ed incorri ine e- 
rà a leggere il programma richiesto by- 
te per byte, linea per linea, fino alla fi- 
ne 

Mentre CR esegue questo lavoro di 
esame potrete vedere il proseguire della 
elaborazione su! video, infatti ogni riga 
che contenga una variabile (o numero 
di linea) viene visualizzata su No scher- 
mo con ì relativi 1 nomi di variabili (o nu- 
meri di linee). 

Dopo aver terminato l'esame dei pro- 
gramma, ecco l'ultima domanda: su 
stampante? 

É chiaro che rispondendo affermati- 
vamente non sarà visualizzato alcun da- 
to sul video, ma tutto verrà stampato su 
carta. Questo fatto avviene perché la 
routine di output sostanzialmente è la 
medesima, mentre cambia esclusiva- 
mente il numero di devi ce. Infatti 3 cor- 
risponde al video e 4 (o 5 per alcune 
stampanti) equivale alia stampante. 


1 00 

IÙZ 

104 

tee 
100 
110 
1 12 
114 
116 
1 18 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


*** * * * ********** *. - ‘ * * <- * * 


i. 


P E 


R 0 S $ 
FERE' H 


* 
* 
4 
* 

* 

***************4 * **' • **** 

* AUTORE ■ E £ KH * 

* GLORIAMO ROSSI * 
**##N^*#**** ****** ****** 

$ 
$ 
* 
& 


* 


120 

REM * 

VIC20 

HD 

122 

REM * 

VIC20 EXP 

. T 

■DA 

124 

REM * 

COMMODORE 64 

SI 

126 

REM * 

016 

:$HC' 

12S 

REM :* 

PLUS 4 

*NG 

138 

REM * 

COMMODORE 3UO0 

SI 


i 30 REM * COMMODORE 4600 SI * 

104 REM * COMMODORE SUGO SI * 

136 REM * COMMODORE 3000 SI 4 

13:3 REM * COMMODORE 4000 SI * 

! 40 REM ***####******#lWi#*#***#. : * 
142 REM * IL C 1 6 ED IL PLUS 4 * 

Ì44 REM * POSSONO UTILIZZARE * 
146 REM * QUESTO PROGRAMMA SOLO* 
148 REM * SE SI CAMBIANO ALCUNI* 
150 REM * VALORI DELLA TABELLA * 
152 REM * C< . * * 

154 REM ************************ 

156 REM 

155 * 
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160 HE$= ,, Vfì E, 5 LI NEH DEL PROGRRM 

m M 

1 62 n ■ M R$: ■: I ? V , h* < 3 * X3- ( 50R > , C < 25 

164 PRIMT ,r CCLERR1C R 0 S S - REF 
ERE N C £C2 HOViN J 51 
1 66 G^QHRi C 34 ) : REM V I RGQLETTE 

1 7 fi Bi 1 1 - ! . : REM V IRGOLE i TE 

1 ?2 bì 3 > =CHRf c ss > : rem due pumt i 

1 7 4 PR T NT ! 1 r DfìWN 1 !.. I TE Z RVS 3 V [ RVOF F 
l Hi? I AB I L L fi [ RVS 3 L L RVOFF 3 1 NEE 
VC3 LEFT1"; 

1 t i : ’i ■ r-JPì IT T 

1 73 IF Z j™" V H OR ZÌ="L" THEM 134 
ISO PRIHT"T3 URI" 

132 GOTO 174 
134 C2"5 

ISO IF Z$="L" THEM C2=6 

1 OR r OR T-i in 255 : C < J > “-4 : NEKTJ : RE 

M INIZI RLI2ZAZ IONE DI VALORE 
COSTANTE 

!9fi FOR J--48 TO 57 r C< J >=6 : NEXT J : RE 
M PER I COSICI REL ITIVI RI NU 

r.ipp | 

152 REM SE ELSE PER VARI ABILI 5=L 
ATTERE; 7=$Z&.> 3=< 

194 IF 02=5 THEN FOR J=€5 TO 90 C< 
J)=5 NEKTJ FOR J=3£ TO 33 ■ C<J> 
-7 : NEKTJ : C<40>= ; 3 

136 C < 34 > = 1 : REM COB ICE PER V I RGOL 
ETTE 1 

193 e a 43 > =2: REM COD PER REM 
20@ COSI > =3 : REM COB PER URTA 
232 PR I NT '* t DOWN 3 NOME PROGRAMMA * 
13 LEFT3 " ; 

204 INPUT Pi 

206 IF Pi= " * 11 THEN PRIHT"[3 UP I " : G 
OTO 202 

203 OPEN l..y,3, "0: "*P$+" .P,R" 

2 IO PEI NT" !1 BONN 3 C RVS 30PEN1 , 3. 3, "ET 

( i > "fi : ■* Pi " . P, R" B$ < 1 > “ [ RVOFF j Z B 
OWH 3 ” : REM V I SURL IZZA CI 0 " CHE 
FA 

£12 REM ******************** 

£14 REM * PRENDE I BUE * 

216 REM * PRIMI BYTE CHE * 

213 REM * IDENTIFICANO * 

220 REM * LA LOCAZIONE DI * 

222 REM * INIZIO BASIC * 

224 REM ******************** 

226 GEI #1,H$,EÌ 


228 

REM 


2>>y 

REM 

* VIC28 NO 

24n * 

OOD 

REM 

* 064 

08 * 

234 

REM 

■f 300yf i 

* 

236 

REM 

6 4000 ! — > 

04 * 

238 

REM 

* 3000 ! 

* 

248 

REM 

* C16 HO 

-.14 * 

242 

REM 

* PLUS 4 NO 

346 * 

244 

REM 


****** 


246 IF ASC < E$ > 03 THEN CLOSE I7ST0 
P 

243 REM ******************** 

250 REM * INIZIO SCANSIONE * 

252 REM * PROGRAMMA OBJ * 

254 REM ******************** 

256 IF B-0GOTO 292 

253 PRINTLil 

265 K—X 

£62 FOR J=B TO 1 STEP -1 
264 - FRI NT" 

266 : Ki^AióJ 1 
263 ■ Hi-Ni+Li 

270 : r f xt c k > yy.t then x% k+j ) =xt < k 

> ; K=K-1 : GOTO 270 

272 :KÌCK+J>=X* 

274 NEKTJ 

276 X~K+B 

273 PRINT 
230 E=0 

232 REM ******************** 

234 REM * ESAME BELLA * 

236 REM * NUOVA RIGA BASIC * 

238 REM * TEST DI FINE * 

290 REM ******************** 

292 GET #1 > Ri j Bi : REM PUNTATORE A 
PROSSIMA RIGA BASIC 

294 IF LEM < fl$ > +LEN < B$ ) =0GOTO 413 -R 
EM EQUIVALE A FINE PROGRAMMA 
296 REM ******************** 

293 REM * PRENDE IL NUMERO * 

380 REM * BELLA RIGA BASIC * 

302 REM * IH ESAME * 

304 REM ******************** 

306 GET #1 j Ai : L=LEN<AÌ) 

303 IF L=1 THEN L=ASC< 

310 GET # 1 .< Ai : A=LEH Ai ? 

312 IF R-l THEN A=fiSC<AÌ> 

314 0=02 

316 Cl=-1 

318 REM ******************** 

320 REM * TRASFORMAZIONE * 

322 REM * NUMERO DI RIGA * 
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324 REM * IH STRINGA * 

326 REM **#sMf#******#*****.«* 

328 L=fi*256+L 
33@ L$=STR$<0 

332 IF L€N<L«<6 THEN L$=LEFT*<S$, 
6-LEN£L$;0+L$ 

334 rem mmmmmmmmmm 

336 REM * ÌSRHE DELLA ZONA $ 

333 REM $ BASIC DELLA RIGA * 

340 REM *******^^3fs**#^^*# 

342 GEI #l,fi* : fi™LEN<R$> 

344 I F R“1 THEN A~RSC C R^- ) 

346 C9«C<fi> 

343 IF C3>C IGUTU 373 

350 IF C2=6 AND LENCM*X5 THEM 
** u ■ GOTO 350 
352 K=6 

354 IF B-0GOTO 368 

356 POR ,T-i Tu B 

358 IF h$< J>=M$GQTO 372 

363 if then mext j : k=b • got 

il PP.ft 

362 FOR K=B TO J STEP -1 

364 hT c ft> i > =A$ < K > 

366 NEXTfc* 

368 B«B+1 

373 R$<K+Ì >=H$ 

372 C“C2 

374 C 1 1 
376 Mi= ” ", 

378 I F C2-5G0T0 386 
388 IF A~137 OR Fe^13S OR fl=l4i OR 
R=ÌS7 THEN C=6 : GOTO 336 
382 IF fi- 4 4 OR A-32GQTO 336 
384 IF C9<>& THEN C>9‘60T0 396 
386 IF C9-C THEN C=-l = Cl=4 
388 IF 060010 396 
390 IF C<8 AND C9>C1 AND C3>6 THEN 
C ì “C9 ■ GOTO 394 

392 IF 02^5 THEN IF LEN<MS)>2 OR C 
>0 GOTTI 396 
394 rT$-4'1$4RT 

396 QN C9+1G0TQ 256, 398,398,398-00 
TO 342 

398 Bf=Bf<09> 

488 C:£= i3 " 

402 GEI #1,R$ 

404 IF "GOTO 256 

406 IF W3=B*G0T0 342 
488 IF R$OQ£QOTG 402 
410 Rf=E^ 

412 


414 

416 GOTO: 4@2 
418 CLOSE 1 

420 REM *$«#**»***3#e****^*** 

422 REM * ROUTINE DI * 

424 REM * 3 T A M F R * 

426 rem .* & t *t** *♦*# 

428 INPUT "SU STAMPANTE SC3 LEF 

1 "ih - 

43@ C=3 ' REM DEVI CE VIDEO 
402 2««:REH GRUPPI PER ' INEfl- ! 

434 IF 2i=-S“ THEN 04 : Z=7 ; REM 3U 

stampante. gruppi ;••, e n h ~ < 
fl PI PC EPE) 

436 OPEN 2,C 
438 PR I NT fi 2 

449 PR 1 NT #2 .. "t OLEARI" 

442 PRINT#2, ”C R 0 S 8 R E. FF P 
F N C F" 

444 PRINT#2* 

446 PR I HT#2 .■ "PROGRRMMR : 11 ; P* 

448 PR I HT#2 

450 PRIMI #2, MRT 
452 PRINT#2,ME$ 

454 PR INTUITO 
456 X*="" 

458 MCJ=" !" 

460 FOR ,T=1 TO X 
462 RÌ~X$<J) 

464 IF C2=6 THEN K==6 : G0T0 470 
466 FUR K=1 TO LEMfWJ 
468 I F M I D* t R* » K , 1 ) O " " " r HE~M NEKT 
K : STOP 

476 Bf~LEFT$4:fiì'j K-l ) 

472 CJ =M I i, fl$ > K+ 1 > 

474 IF X$==B$GQTG 484 
476 PRINT#2/MCJ 
478 V-0 
480 X$®B$ 

482 PR I HT#2, NT, LEF- TT < SS , 5- LENCH* ) ) 

FI È M ' 

484 V-V+ì 

486 IF VTZGOTO 494 

483 '7=1 
490 PR 'E NT#2 

492 PRIHT#2, 8T" ! 11 ; 

494 PR I MT#2 , LEFT# < 8* <- 6-LEN < C * 1 > , Ct 

496 MC*- ,,,r 
498 MEXT J 
500 PRINT#2 
562 CLOSE 2 
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Registrate il mio abbonamento annuale a Com modore 

D Ho versato oggi stesso il canone di Lire 25.000 a mezio c/c postale n° 31532203 intestato a: 
Commodore Systems Editoriale - V ie Famagosta. 75 - 20142 Milano 

□ Accludo assegno per tire 25.000 banca _ .n* a favore di 

Commodore Systems Editoriale 
Il mio computer è: VIC 20 □, C 64 □, altro (specificare) 

Ho □ f non rio □ la stampante, ma voglio □ comprarla. 

Preferisco programmi di gioco □, didattici ZX d'utilità □, altro 

Home Cognome 

Via n° CAP. M I I I I Città 

Tal. . _ _ 


Registratemi tra i collaboratori regolari di Commodore, 

A titolo dì prova vi invio un articolo e la cassetta col programma 


r di cui vi garantisco Passatola originalità autorizzandovenc la pubblicazione. 


□ Scrivetemi ainndirizzo sottoindicato 

Nome 

Via — ^ ...» 


N° 


Tel 


CAP 


Città 


HELP 


insti 


Nome 



n' CAP. I I I 1 L I Città 

.. Oraria 


computer 




Sonoin 


Ho intenzione 



possesso 

No 

di acquistare 

espanso a K 


□ 

□ 

□ 



□ 

□ 

□ 

quale: 1541 □ 

altro 

n 

□ 

□ 

quale; MPS801 □ 

altro _ 

□ 

□ 

□ 

quale: ! 520 □ 

altro 

□ 

D 

n 

quale: 1530 D 

altro ... 

□ 

□ 

□ 


I Vie 20 □ 

■ C 64 □ 
i Floppy □ 

■ Stampante □ 

■ Fletter □ 
m Registratore □ 
m 

a Televisore □, TV- Monitor P, Monitor □, Colore □* B/N □ 

■ Home ^ „ Cognome 

■ Via n & ........ CAP* 


I I I I I Città 


Vendo □ Compro □ 


VUOI 




endere 
o comprare 

ù 

M 




. IT?.. 


CAP. 1 I . 1...1.LI Città 


.Orario 




Si, voglio 
abbonarmi 


Si, voglio 
collaborare 


Si, chiedo 
consiglio 


Si ; voglio 
votare 


Si vendo/ 
compro 



Tutta I* richiesi* di V*ndo-$camblo-Cefnpro 
programmi par... varranno citata eacluihra- 
iTrtrtt* con II solo noma, cognome ad Indirti* 
zo. Sta a voi tenori scambiarvi te varia Itela. 
Varranno pubblicati i ntegraimonte a giudizio 
dal caporedattore. Quagli annunci eh* non 
fanno parta dalla categoria di cui sopra. Buo- 
ni scambi a vendita E! 

{Gloriano Rosai) 

Enrico Maatiofetò, Via Rimem brame 11 - 43100 
Parma - Tel 0521/562656 

Antonio Agus - Via Sani 'Antonio, 31 - 09016 (gis- 
si as- Tel. 0781/22423 

Slegano Ceo - Via Paladino. 6 - BÒI 00 Napoli - 
081/205602 

Uno Modena ■ Via Alberghi Scocca Mara * 920 1 9 
Sciacea- Tel 0925/93000 

□ano Fumagalli - Via Boccaccio. 32 20145 Mitene 

Stefano Gietnch - Largo Tevere P Papa. 163 - 
00 146 Roma -Tei 06/5562629 

Stivano Bomptern - Via Baccaqinxn. 6 - 46040 Mon* 
zabenc (MN) - Tei 0376/845372 

Matteo Doven - Via t Maggio 1 5 ■ 56025 Porrtedara 
(Pisa) - Tel. 0567/212154 

Gianni Gaudrno - Via G ragli*. 16 * 10136 Torino - 
Tei, 01 1/3 52830 

Leonardo Lancimi ■ Via Corcos, 5-50100 Firenze 
TeE 055/14360 

Roberto Cavata^ - Via G. Agnelli, t -10070 Robe®- 
somero (Torino} Tel. 01 1 79235700 

Riccardo LoruSSO - Viale Monte Ilo, 5*20154 Milano 
-Tel. 02/6556024 

Flavio Mambclli * Vmi G, Valmarana. 60-00139 
Roma -Tel. 06/8122497 

Mauro Janoucci - Vta E- Fermi. 49 * 00146 Roma 


Assunta Lama - ViaG. Rossini. 4 19100 La Spezia 

Paolo Vergoni - Via Appia. 69 ■ 06100 Perugia - Tel. 
075/66918 

Tonino Oraste - Vte Don Bosco. 9/e - 80141 Napoli * 
Tei 081/449915 -OB1/7512140 

Roberto Mancu$o - Via F. Magellano. 19 - 80G38 
Pomigljano d Arco (Na) - Tel 08 1 /8S41291 

José And team - Via Antinon, 8 - 60100 Ancona - 
Tei. 895165 

Luca Perini - Lungo Castellano. 44 - 63100 Asceti 
Ruteno - Tel 0736/52175 

Paolo Carati - Borgo Padova. 8 1 - 350 1 3 Gradella 
Tei 049/591785 

Massimo Leononi - Casella Postale 85 - 16135 
Rapallo 4 Genova! 

Manano Talamo - Via CdiuOCi. 10 - 700^9 Tnggtano 
* Tel 080/681470 

Giorgio CaviccNc* - Via F Turati. 14 - 41Q12 Cam 

Franco Fanton* - P G BOX 259- 51 1 00 Pista* 

Alessandro Bruno - Via Alessandri. 6 - 1 5033 Ca- 
sale Monferrato * Tel 0142/79784 

Martello Cegaro ■ Via Vittorio Emanuele. /O - 
81030 Parete (Ce) * Tel 071/81 17213 

Damele Jommi - Via Maccigrra, 8 - 07041 Alghero 
(SS) 

Maurizio Marame ■ Via Col Berretta 15 - 35100 
Padova - Tel. 049/656408 

Enrico Carrara - Via Tornavo. 12-00195 Roma 

Drno Tigli - Via Pergola. 67 - 22053 Lecco - Tel 
J341/36S172 

Giulio Ravagni - Casella Posiate 224 * 3BOS6 Rove- 
reto (TN)- Tel 0464/34475 

Luca Tonetto - Padova - Tei. 019/27167 


Franco Ferri * Via S Lazzaro. 31 ■ 40068 San Laz- 
zaro i BOI - Tel . 05 1 m\ 504 

Walter Ferrerò Via Assetta. 5/3 - 10098 Rivoli 
(TOl-Tei 011/9587985 

Enrico Gipnani - Via del Domimchino. 19-61932 
Fano (PS) - Tel 0721/874688 

Alio Nadir» - Shany Club - Via Passeggiate. 39 - 
30020 Bibione (VE! - Tel. 0431/43233 

Maurizio Marano Via Gozzadim, 6 - 40055 Caste ■ 
naso fBO} - tei 051/781679 


Massimo Capelli - y.a Leon Alberti. 64 40139 

Bologna - Tel OSI 006382 

Marcello Cianite V te Garibaldi 8 -84013 Cava 
dei Tirreni 

Maurizio Gom™ ■ Va Alfien 5 ■ 27029 Vigevano 

fPV) 

Vincenzo Musctì - Va Paolo Biondino 12 - 96100 
Messina - Tei 090/2938626 

Mano Fanelli ■ Va Tremo. 1 - 20060 Cassma de 
Pecchi (MI) - Tei 02/9528793 

Sebastiano Caramagno - Via Con! CipefiazzO - 
960H Auguste {SR} -Tel 0931/993333 


Luca Lauro Via Vitiono Colonna. 220 - 8077 Ischia 
INA) -Tef 081/992589 

Nicola Di Piazza - Via Do! Dommicfiina 23 - 61032 
Fano (PS) -0721/877327 

Sergio Rivolerti - Via Tevere - 63017 Pedo San 
Giorgio (AP) * Tel. 0734/4419 


Gianni Mazzesi - Via Cella. 329 - 48020 5 Sigiano 
(RA) - Tel. 0544/573529 

Bruno Bura - Via Dello Vigne. 67 00148 Roma - 
Tel 06/5238575 

Paolo Pavoru * Vta C Battisti. Ili - 64011 Alba 
Adnauca 1 TE) - Tei 0861/72191 


Mauro Mxximiii - Via Giuseppe AmtfVH.21 ■ 00143 
Roma -Tel 06/5917903 


Commodore Club - Via Fifelo. 37 - 961 OD Siracusa * 
Tei 0931/35866 


Emanuele Ben odo - Via PdntfuelEL 7 - 20129 Mite- 
no-Tel 02/27196H 


Gommodofe - 65 


Enzo Patrizzo - Via Naz«nate. 157 - 84030 Radute 
Scalo - Tel. 0975/74022 

Domenico Diaci - Via GostelfidarclQ, 2/2 - 42100 
Peggio Emilia - Tei 0522/43023 

Maurizio Maestn - Via P G Genocehi. *92 - 47023 
Cesena (FO) 

Andfiea Zampetìrooi ■ Via Beofetii 4 - 201 Si Milane 

Cario Abrunzo - Via P CoHenuccio 5/A - 80136 
Napoli -Tel. 081/214667 

Giovanni Giamminctla - Vìa Vittorio Veneto 14 - 
22070 Appiano G (Como) Tel 933176 

Cesare Giarda - Via Viscere* 33 - 28065 Cerano 
iNOi Te) 0321/728062 

Marzio Mar etti - Via G, Rossini. 21 - 50144 Firenze 
Tel 06S/364766 

Giovanni Abbate - Via Medaglie d oro. 87 - 37018 
Modica (RG) ■ Tel. 0932/944256/900292 


Calcedonio Meli VlaG A. Valenti 89 93100 Cai 
tanissetta -Tel, 0934/23365 

Massimo Salteri - Va Dcn Minzcni. 72 - 4SI 00 
Rovigo 

Alfredo Casciarw - Via Moni, Virgilio. 105 85029 
Venosa (PZ) - Tei. 0972/3201 5 

Matteo G lanera - Via Lago di Garda. 4t - 48100 
Ravenna - Tel. 0544/34968 

Paolo Sommavi la - Via Forcel ìmi 3 - 35127 Padova 
- Tel 040/757046 

Alessandro Paottni - Via Marcelo Provenzale. 9 - 
□OT 68 Roma - 06/627892? 

Roberto Sant - Via Diaz . 1 9 - 330 1 0 T nappo Grande 
{Udine) - Tel 0432/960604 

Antonio Mandala - Via Interna 40 33170 Pordeno- 
ne ■ Tel, 0434/32231 

Luca BernartJmi. - Va S. Martino 2i - 05100 Terni - 
Tm 0744/56870 

Riccardo Maffiolr - Via Abruzzi. 97 - 25100 Brescia 

Maurizio Caruso - Viale Libertà, 85 - 95014 Giarra 
[dì - Tel 095/932723 


Luca Nace aralo - Via Trieste. 21 ■ 87088 Rissano 
Scalo (CS) - Tel. 0983/21451 

Massimo Tolone- Via G. Galtler. 15 -35043 Monse' 
lice (PO) - Tel. 0429/74033 

Paolo Gallo - Via Garibaldi. 83 %014 Flondia iSRi 
-Tel 0931/941056 

Franco Radice* Via G. ingegnali. 25 -20131 Milano 
-Tel 02/2899553 

Alberto Borgim - Via San Rocco, 34 . 21031 Gaita- 
rate IMI) - Tel 0331/795770 

Fabrizo Parenti - Via Pramptìlim 5 - 43100 Parma - 
Tei 0521/72924 


Guido Gaserai - Viale Sertala 1 - 20124 Milano 

Vaiano Cristiani - Via Alcide de GaSpen 49 - 63018 
PIO P Picena - Tei. 0733/8881 17 

Renaio Maneggiti - Via Piemonte . 26 ■ 2005? Mon- 

za (MI) 

Sergio I nnocente - Via Saccardo. 1 6 - 31 1 00 Trevi- 
so Tel. D422/51182 

Giancarlo Giuliano - Via Carso- 3 - 18039 Ventimi 

glia ■ Td 0164/34483 

Statano MelaHi - Via Campagngno, se - 00189 Ro- 
ma - Tal 06/3271448 

Roberto Cotza - Va Puccmi 60 20099 Segio Ser 
Giovanni - Tel 02/2425392 

Gianluca Amoroso - Via G- Di Vittorio. 7/?3 - 301 70 
Meslre (VE) - Tei 041/612015 


Ivan Vicentini - Via I. Ntevo. il - 33 1 0C Udine - Tel 
0432/21363 

Tommaso Mazzoni - Via Ludovico Cardi. 9 - 50053 
Empoli (FI) 

Maria Antonia Monti - Casella Postale 45 - 55052 F 
Barga (Lucca ) 

Michele Petrarca - Va Donatelo 12 - 35027 No- 
ventaP. (POI Tet. 049/627164 

RomplO Moragli - Via Benevento, 20 - 07026 Olbia 
(SS) - Tel. 0789/21803 


Ezio Pmon - Via Zorulti 10 - 3307Q Casarca i PN i - 
Ter 0434/869950 


Fabio Sozzalo - Via S Anna. 213/H - Santa Anna di 
ChioggiafVEi-Tei 041/4950397 


Andrea FabreUo - Va Div. Jutia. 20 - 360i r Arando 
(Vt)- Tel 0445^1348 


Federico Franchini - Vìa Covignano 218 ■ 47037 
Rimint- Tel 0541/770792 


Rosalba Balducci - Via Baccarani. 7 - 60T0O Anco- 
na-Tei. 071/55089 


Danaio Domiffi - Via Crimea. 3 - 20147 Milano - Tel 
02/404&T73 


Vincenzo Ceffi . Il Traversa NiCóìardi. 32 ■ 8Q131 
Napoli ■ Tel 081/7434424 


Marco Saltarelli - Via XXIV Maggio. 7 35054 Mon- 
tebello - tei. 0444/749024 


Vincenzo Todaro ■ Via Cam*bbelia 155 - 95030 
Gravina [CD - Tel 035/414429 


Fabrizio Prudente - Via L. Tnpotì. 7/a ■ $4 iqq Tera- 
mo - Tei 0861/4 TI T&4 


Claudio Gtevanelii - Via Ripamonti, 194 - 20141 
Milano - Tei 02/536926 ufi 02/5631 05 


Vendo Floppy 1541 aL SSG.ODG/Fatìo Gatéarzr- VìaP.0, 
Faringiti, t 0 - 60014 Pa/cooara - AN - Tot, Q7V917XS6 
dopo le 20} 

Vende Ckyrvnodcm 64 ehi ha il manuale d'uso in ngleu e 
vuote la traduzione m italiano cambe cm giochi o utiity [o 
vendo 4 L 10 000 «lo per chi non ha camtwt /Croci 
- Va Botiarc 29/A - 20127 Mrìano te. Q2< 

28*25651 

Vendo Commodore Vie 20 tre mesi tf iuta + joys&m 0 
cartucce gnmi ■+ rrtroduaerìe Base ì^eZ'pane syitaiau- 
ve « cassette la* ' tuntria di gicdiiwHssena multo a L 
300 000 /FerOinanòo ApnfisfuJ ■ v<a Pav*. $1 - 15100 4fcj- 
sandria moni f. 3*3006 - 66604 dopo te ore 20) 

Vendo innato Vie 20 +2 cartucce giochi + scocchi 4 ehi 
acquea irrtHocco Vie Hit- lOKRam ■+ Vie 12 1 1 - 3K su|»r 
eKpander + Vie 1212 ■ pragrammers Aids +■ Vie 1020 cadi- 
net espansione 8 Slot. Vetem lutale oltre L. 700.000 vendo a 
L. 400 000 (ÙBf/O GtùmMIti • Via De CUffiotoms 15 - 20124 
Milano - Tei 02/6572867 ore 19/22). 

Vanda i É e 2* voterr» deff’encicsopeda BAS»C ai modco 
p tetto d« L 40 000 /Stefano De Ste&s - va cotc*'* te - 
tomoonogne* Tei 0517X2339 dm r*- r5 - 20722! 

Venda Vxteoguco Pr*ps G74O0 ccn 5 retata canicc* 
(sa. basebai rnmduzioneajypmgrarrmazicna «e .1 don 
ima uttentve a coca mesa io si può far divenire ccrno^r 
con22Hrtair h tutto * l 230 000 Trattabili. Psgemsnio r* 
cons'iisseqnc' fAndflea Navàgha - Sfli'.To a. 1 Aogffro 5? - 
1B03Q Poggio di Sanmmp - Tei. 0184/88939201* OMStti/ 

Vendo il hbro "Voi e II vostro Ccmrrodore 04' a L T5 000 
Compro Guida di ntanmento per ir pmgrammainm CGw 
é> 4 '. Tderonane 0 senvare. {ijt/ca Menego^o ■ Vtì B $c w 
teorie. 6 ■ 35012 Qamposon ptete -PO -Tei 049/5790083 
af pomerìggio} 
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KH computer System 

s.a.s. di Gloriano Rossi e C. 


C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-6575115 


rivenditore autorizzato 

Commodore 



Software 

Prodotti 


Accessori 

Assistenza 


Assistenza software per Commodore, Sanyo, NCR, Sirius-Victor e tutti ì 
personal compatibili IBM- PC. 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona: 

CREMA: EDP ANSWER di A. Guerci - Via Ber letto 1 - Tel. 0373-59140 
BIELLA: ELD.S. Home Data System di Mantellaro - Via Italia 50/a - Tel. 015-28620 







rt^v- 


L’esperienza insegna. 

La richiesta di corsi d'informatica cresce ogni, giorno di più. Ma non basta conoscere bene il computer per saperne 
insegnare l'uso ad un pubblico tanto ansioso d'apprendere quanto privo dì qualsiasi nozione di base in materia. 

Né la soia esperienza didattica è sufficiente per entrare in questo settore. Così, Incalzato dalia domanda, 
anche tu che non vuol rispondere con un insegnamento insufficiente o improvvisato, probabilmente sei alla ricerca 
d una metologia provata e sicura, di una manualistica coerente e completa, di sussidi audiovisivi e schemi di lavoro. 

Computer School ** possiede una solida tangibile e collaudata esperienza d’rnsegnamento del! informatica e ti dà tutto questo, 
insieme a! know-how ed ai supporto necessario perchè anche tu possa entrare con successo in questo promettente mercato. 
Inottre, consentendoti di presentarti agli utenti potenziali con il suo marchio e la sua insegna, li offre un ulteriore vantaggio: 
beneficiare d’una possente azione pubblicitaria sulle più diffuse e prestigiose pubblicazioni del settore. 

Se perciò vuoi essere la prima Computer Schooi della tua città non osiiare a contattarci. 



Franchising per insegnare. 

20090 Trezzano S/N (MI) - V.le C. Colombo, 49 - Tel. (02) 4454352/4459292 



